Как подружить SendMessage и TIdHTTP

[zcoder]

Помогите разобраться

Одна программа посылает другой сообщение текстовое

txt:=Clipboard.AsText;
SendMessage(FindWindow(nil,'Form1'),MY_MESSAGE,0,DWORD(PChar(txt)));

Другая принимает сообщение и скачивает страничку черезTIdHTTP

 procedure TForm1.MessageReceiver(var msg: TMessage);
   var
   txt: PChar;
   begin
   txt := PChar(msg.lParam);
   msg.Result := 1;
   If txt<>'' then
  LoadPage(txt);
  AddMemo('Принтер','178.000','1','10','500','13.500',99);
  end;

procedure TForm1.LoadPage(LinkPage:String);
var
Http:TIdHttp;
   s:string;
  // strpost:TStringList;
   begin

Http:=TIdHTTP.Create(nil);

   Http.Host:='213.247.181.48';//PAddr;
   Http.Port:=80;

  try
   Http.Connect();
   s:=Http.Get(LinkPage);
   HTTP.Disconnect;
   //Http.Destroy;
  except
  showmessage('Невозможно подключиться к серверу!');
  form1.close
  end;
   //showmessage('завершено');
  ReadPage(s);
end;

при обработке процедуры LoadPage выходит ошибка типа Access violation
Если послать сообщение от самой программы приемника то все работает
txt:=Clipboard.AsText;
SendMessage(form1.Handle ,MY_MESSAGE,0,DWORD(PChar(txt)));

[zcoder]

Всем спасибо разобрался.