[[ArdiIIa]]

Hola DaHousecat, Bienvenido.

Código Delphi [-]
procedure TForm1.All2Click(Sender: TObject);
var fileName:String;
begin
       fileName:=inttostr( TImage(Sender).Tag)+'.jpg';
       comparar(fileName);
end;