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