Werte aus der Statusleiste eines fremden Programms erhalten

[Cuchulainn]

Ich habe folgendes Problem: Wir benutzen in unserer Firma ein Programm, dessen Statusleiste ich auslesen soll. Da niemand von euch das Programm kennen wird, verwende ich in meinem Quelltext, den ich hier poste, den Internet Explorer. Ich habe das eben nur geschrieben um zu sagen, dass mir irgendwelche Automationsschittstellen für den Internet Explorer nicht weiterhelfen, da ich auf ein anderes Programm zugreifen möchte.

Mein Quelltext sieht bis jetzt folgendermaßen aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var finder: THandle;
    finder2: THandle;
    text2: pchar;
begin
     text1 := StrAlloc(20);
     finder := FindWindow('IEFrame', 'about:blank - Microsoft Internet Explorer');
     if finder <> 0 then
     begin
          finder2 := FindWindowEx(finder, 0, 'msctls_statusbar32', Nil);
     end;
     if finder2 <> 0 then
     begin
          SendMessage(finder2, SB_GETTEXT, 0, LongInt(text));          
     end;
     Edit1.Text := StrPas(text2);
     StrDispose(text2);

Ein Programmierlehrer hat mir erklärt wie das mit C++ funktionieren würde. Leider kennt er sich mit Delphi überhaupt nicht aus. Das Prinzip von seinem C++-Quelltext habe ich übernommen. Es funktioniert auch ohne Fehlermeldung, leider wird mir in Edit1 nichts ausgegeben.
Kann mir da vielleicht jemand weiterhelfen?