Redigering af komponent i et andet program.

Jeg har før stillet et spørgsmål om hvordan man aflæser data fra et andet program. Jeg fik også et udemærket svar, problemet er bare at jeg nu har opdaget et masse fejl.
Her den kode jeg bruger når jeg skal skrive til det andet program:
procedure SetTriggerText(S: String);
var
  Wnd: HWND;
  ClassName: array[0..144] of char;
  Num: Integer;
begin
  Num := 0;
  { Find the "calc" window }
  Wnd := FindWindow(PCHAR('#32770'), NIL);
  if Wnd <> 0 then
  begin
    { get the first child window... }
    Wnd := GetWindow(Wnd, GW_CHILD);
    repeat
      { ...and search the siblings for the first class named
"Static" }
      GetClassName(Wnd, @ClassName, SizeOf(ClassName));
      if StrComp(ClassName, 'Edit') = 0 then
      begin
        Num := Num + 1;
        if Num = 2 then // Edit #2 is one we want
        begin
          SendMessage(Wnd, WM_SETTEXT, 0, Integer(S));
          Exit;
        end;
      end; { if StrComp... }
      Wnd := GetWindow(Wnd, GW_HWNDNEXT);
    until (Wnd = 0);
  end;
end;


Og her er den til når jeg aflæser:



function GetTriggerText: string;
var
  Wnd: HWND;
  ClassName: array[0..144] of char;
  L: Integer;
  Num: Integer;
begin
  Result := '';
  Num := 0;
  { Find the "calc" window }
  Wnd := FindWindow(PCHAR('#32770'), NIL);
  if Wnd <> 0 then
  begin
    { get the first child window... }
    Wnd := GetWindow(Wnd, GW_CHILD);
    repeat
      { ...and search the siblings for the first class named
"Static" }
      GetClassName(Wnd, @ClassName, SizeOf(ClassName));
      if StrComp(ClassName, 'Edit') = 0 then
      begin
        Num := Num + 1;
        if Num = 2 then // Edit #2 is one we want
        begin
          { get the text length }
          L := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
          if L > 0 then
          begin
            { allocate space for the text }
            SetString(Result, NIL, L);
            { get the text (into Result) }
            SendMessage(Wnd, WM_GETTEXT, L, Longint(@Result[1]));
            { set actual size }
            SetLength(Result, StrLen(PCHAR(Result)));
          end;
          Exit;
        end;
      end; { if StrComp... }
      Wnd := GetWindow(Wnd, GW_HWNDNEXT);
    until (Wnd = 0);
  end;
end;



Problemerne er:
1) Når jeg skriver til komponentet, så gemmer den ikke den tekst jeg har skrevet. Jeg gætter på at grunden er at den ikke kører sin onChange eller hvad det nu er, når jeg bruger SendMessage.

2) Både aflæsning og indsætning af tekst virker tilsyneladende kun nogle gange. De gange hvor det ikke virker hjælpe det som regel (ikke sikker på at det virker hver gang) at lave en lille ændring i teksten først.


Jeg vil meget gerne have hjælp til at løse de to problemer.
Hvis i vil vide noget specifikt de pågældende programmer så bare sig til, dog har jeg kun adgang til kildekoden i det program som aflæser/skriver til det andet.

Tak.