Üzenet küldése másik applikációba

Van egy egyszerü megoldás két applikáció közötti adatátvitelre, 2 integer tipusu szám átvitele, a PostMessage -val.

PostMessage( másik Applikáció handle-ja , message -csatorna , adat1:integer , adat2:integer );

Az üzenetküldő proggi először is megkeresi a másik üzenet fogadó applikáció handle-ját a form1.caption -ja alapján, aminek "xakk" -nak kell lennie. A többi világos. Én szöveget is át szoktam vele küldeni ugy, hogy a szöveg karaktereit (byte) egyesével átküldöm, a tuloldalon pedig összerakom.

Üzenetküldő Applikáció:

uses Messages,WinProcs
const messa = wm_app +1;
. . .
procedure TForm1.Button1Click(Sender: TObject);
var HWND:THandle;
begin
HWND:=FindWindow('TForm1','xakk'); // a másik applikáció form1.caption -ja "xakk" !!
if HWND<>0 then
begin
PostMessage(HWND,messa,888,999);
end;
end;

-------------------------------------------------------------------------------
Üzenet fogadó Applikáció:
{a form caption-ja legyen "xakk", mert ezt fogja keresni a hívó Applikáció!!!}
const messa = wm_app +1;

private
procedure uzenet(var msg:Tmsg); message messa;

{$R *.DFM}

procedure Tform1.uzenet;
var a,b:integer;
begin
a:=msg.message; //az egyik integer (888)
b:=msg.wparam; //a másik integer (999)
end;