[Igor]

f:image;
...
f:=nil;
Вроде как экономит память.
Или сделать массив строк, в них прописать названия файлов (a:array [1..9,1..9] of string) и использовать более медленный способ.
drawimage(loadimage(a[b,c]),x,y);