Código Delphi [-] for x:=1 to 5 do begin TImage(FindComponent(inttostr(x))).Picture:=nil; end;
for x:=1 to 5 do begin TImage(FindComponent(inttostr(x))).Picture:=nil; end;