OnChange example for Delphi

Typically, you would use this event to flag changed image data and prompt the user to save the changes before closing a window or exiting an application. That use of the event cannot be tested properly without writing a complete application; so this example just shows you a simple test of the event.

procedure TForm1.Lead1Change(Sender: TObject);
begin
ShowMessage('Image data has changed');
end;