AddMessage example for Delphi

procedure TForm1.AddMessageClick(Sender: TObject);
var
   strMsg: String;
   ptStart: TPoint;
begin
   strMsg:= 'LEAD Technologies, Inc.';
   ptStart.X:= 10;
   ptStart.Y:= 10;
   {Add the above message to image in the default position and with the default password }
   LEADImage1.AddMessage( strMsg, '', '', ptStart );
end;