Dann regel das ganze doch mit Ungleichheit :

for i:=1 to felder do
begin
for j := 1 to felder do
begin
if (i <> ((felder div 2) + 1)) and (j <> ((felder div 2) + 1)) then
begin
try
bilder[i,j].destroy;
except
end;
if bilder[i,j] <> nil then
bilder[i,j]:= nil;
end;
end;

ich bin zwar schon etwas unter Alkoholeinfluss aber ich hoffe es macht alles etwas Sinn