// Prvni aplikace (vysila data):


var

  wnd:HWND;
  CopyData:TCopyDataStruct;
begin

  wnd:=FindWindow(); 
//nejak najit Handle ciloveho okna

  
if
 wnd<>
0
 
then

  
begin

    CopyData.cbData:=Length(Edit1.Text)+
1
;
    CopyData.lpData:=PChar(Edit1.Text);
    CopyData.dwData:=
0
;
    SendMessage(wnd,WM_COPYDATA,
0
,Integer(@CopyData));
  
end
;
end
;



// Druha aplikace (prijima data):


type

  TfrmApp2 = 
class
(TForm)
    Edit1: TEdit;
  private
    
{ Private declarations }

    
procedure
 WMCopyData(
var
 msg:TWMCopyData); message WM_COPYDATA;
  public
    
{ Public declarations }

  
end
;

procedure
 TfrmApp2.WMCopyData(
var
 msg:TWMCopyData);
begin

  Edit1.Text:=PChar(msg.CopyDataStruct^.lpData);
end
;

Syntax higlighted by Syntax highlighter, available at www.4ITDevelopers.net and www.JakNaWin.com