如何将文本从另一个应用程序(服务)发送到表单中的TEdit？

// 目标应用程序(服务)的代码
procedure SendTextToForm(const text: string);
var
  httpClient: TIdHTTP;
begin
  httpClient := TIdHTTP.Create;
  try
    httpClient.Post('http://表单所在的IP地址:端口号', TStringList.Create('text=' + text));
  finally
    httpClient.Free;
  end;
end;

// 表单的代码
procedure TForm1.FormCreate(Sender: TObject);
begin
  IdHTTPServer1.DefaultPort := 端口号;
  IdHTTPServer1.OnCommandGet := HTTPServerCommandGet;
  IdHTTPServer1.Active := True;
end;

procedure TForm1.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  if ARequestInfo.Document = '/' then
  begin
    if ARequestInfo.Params.Values['text'] <> '' then
      TThread.Queue(nil, procedure
      begin
        Edit1.Text := ARequestInfo.Params.Values['text'];
      end);
    AResponseInfo.ContentText := 'OK';
  end;
end;