Посылка и обработка сообщений Delphi

[iCaesy]

Задание:
Создать два проекта, из первого во второй передать число типа int, во втором принять его, обработать, вывести на экран сумму цифр числа.

Код:

Проект передачи:

Код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;

type
  TData = record
      num:integer;
  end;
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    servh:HWND;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
   servh:=FindWindow(nil,'ReciveMsg');
   if servh<>0 then begin
   button1.Caption:=inttostr(servh);
   button1.Enabled:=false;
   button2.Enabled:=true;
    end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var copydata:COPYDATASTRUCT;
    data:TData;
begin
  try
    data.num:=strtoint(edit1.Text);
    copydata.cbData:=sizeof(TData);
    copydata.dwData:=0;
    copydata.lpData:=@data;
    SendMessage(servh,WM_COPYDATA,0,lparam(@copydata));

  except
     messagebox(handle,'Error','While send message',mb_ok+mb_iconerror);
  end;

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  button1.OnClick(button1);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
randomize;
edit1.Text:=inttostr(random(99));
end;

end.

Проект приема:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs,  StdCtrls;

type
  TData = record
      num:integer;
  end;
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
  private
    procedure RecvData(var Msg:TWMCopyData);message WM_COPYDATA;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.RecvData;
var data:TData;
s:integer;

begin
   data:=TData(msg.CopyDataStruct.lpData^);
   label2.Caption:=inttostR(data.num);

 s:=0;

 while ( data.num<>0 ) do
 begin
  s := s + (data.num mod 10);
  data.num := data.num div 10;
  end;
   label6.Caption:=inttostr(s);
end;
end.

Для передачи использовал:
Код:

SendMessage(servh,WM_COPYDATA,0,lparam(@copydata));

Препод придрался, и просит переделать используя:
WM_LBUTTONUP

Толком не пойму что он хочет, но как я понял сообщение должно то ли передаваться то ли приниматься при отжатии левой кнопки мыши, или как ?

[iCaesy]

Как например сделать чтобы проет 2й принимал передаваемое число, но выводил сумму цифр только после отжатия левой кнопки мыши ?

Вот так не работает :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, Dialogs,  StdCtrls, Menus;

type
  TData = record
      num:integer;
  end;
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
  private
    //procedure RecvData(var Msg:TWMCopyData);message WM_COPYDATA;

         procedure WMLButtonUP(var Msg : TWMMouse); message
WM_LBUTTONUP;

  public
    { Public declarations }
    procedure RecvData(var Msg:TWMCopyData);message WM_COPYDATA;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.RecvData;
var data:TData;
s:integer;

begin
   data:=TData(msg.CopyDataStruct.lpData^);
   label2.Caption:=inttostR(data.num);
end;

procedure TForm1.WMLButtonUP(var Msg : TWMMouse);
var s:integer; data:Tdata;
begin
    s:=0;
    while ( data.num<>0 ) do
  begin
    s := s + (data.num mod 10);
    data.num := data.num div 10;
  end;
   label6.Caption:=inttostr(s);

end;

end.

[iCaesy]

ап ( 10 символов