如何向应用程序传递参数

////发送窗口
procedure TForm1.send();
var
  SendText: string;
  SendDataStruct: CopyDataStruct;
begin
  SendText := edit1.Text;
  SendDataStruct.cbData := length(Sendtext);
  SendDataStruct.lpData := @SendText[1];
  SendMessage(FindWindow(PCHAR('TFormrec'), PCHAR('Formrec')), WM_CopyData, Application.Handle, lparam(@SendDataStruct));
end;
////////接收窗口
type
  TFormrec = class(TForm)
    Label1: TLabel;
   procedure DataIn(var DataMessage: TWMCopyData); message wm_copydata;procedure tFormrec.DataIn(var DataMessage: TWMCopyData);
var
  ReceieveData : CopyDataStruct;
  temp: pchar;
  ReceieveStr : string;
begin
  ReceieveData := DataMessage.CopyDataStruct^;
  temp := ReceieveData.lpdata;
  ReceieveStr := string(temp);
  label1.caption:= ReceieveStr;
end;