Bueno, entonces tendrías que crear algún procedimiento llamado
OnChangeImg(Sender:TObject).
Acá te dejo un ejemplo, vos después modificalo a tu gusto.
Código Delphi
[-]
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure OnChangeImg(Sender:TObject); private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.OnChangeImg(Sender:TObject);
begin
Self.Refresh; ShowMessage('La imagen cambió.');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromFile('Una imagen cualquiera');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.Bitmap.OnChange:=OnChangeImg;
end;
Saludos!