Externe Editbox mit Programm befüllen

[WizoHulk]

Hallo

Ich hoffe ich habe jetzt nicht unnötig einen neuen Thread erstellt, denn ich habe nichts zu mein problem gefunden.

Und zwar habe ich ein Programm wo eine 3 Editboxen vorhanden sind,
diese möchte ich aber duch ein Programm Befüllen.

Ich habe einen Stringgrid mit verschiedenen Werten, wenn ich auf eine Zelle Betätige, dann nimmt er die komplette Zeile und soll diese in die 3 Editboxen Befüllen, leider aber leider bekomm ich das nicht hin.
Ab eine Anweisung noch mit reingebaut, dass er eine Meldung abgeben soll, wenn die ControlId nicht vorhanden ist.

Delphi-Quellcode:

procedure TForm1.SetEditText(const AControlId: Integer; const AText: String);
var
  LWnd: HWND;     // Windows API, Erfordern ein Fenster Handle
begin
  SetLastError(0);
  LWnd :=  FindWindow('#32770', 'InputSearchDlg');
  LWnd :=  GetDlgItem(LWnd, AControlId);

  //LWnd :=  FindWindowEx(LWnd, 0, 'Edit', nil);

  if LWnd <> 0 then
    begin
    if not SetWindowTextW(LWnd, PWideChar(WideString(AText))) then
      ShowMessage(SysErrorMessage(GetLastError));
    end else
    begin
      windows.beep(400,100);
      messagebeep(MB_ICONERROR );
    end;

end;

ich hoffe ihr könnt damit was anfangen, schon mal danke im Vorraus.