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;