Здравствуйте.Мне нужно узнать часто изменяющиеся (примерно секунду) курсы валют при работе с прогой ModernFOrex, и выводить значение валют в своей проге.

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

var b,t: boolean;
i:integer;
buf:array[1..100] of char;
Wnd:array[1..100] of HWND;
s:StringBuilder;

r:string;
....

begin

H := FindWindow (nil,'ModernForex');

If H <> 0 then begin

Label1.Text := 'Найден';


wnd[1]:=GetWindow(H,GW_CHILD);
if wnd[1]=0 then Label1.Text := 'Child не найден'
else Label1.Text := 'Child найден';

while wnd[1]<>0 do begin
s:= StringBuilder.Create(128);
getwindowtext(wnd[1],s,1024);
r:=s.ToString;
Label1.Text := r;

else
wnd[1]:=GetWindow(wnd[1],GW_HWNDNEXT);
end;

end;

end;

end.
работает как то не так, как хотелось бы,
подскажите!