Quase feito falta só um detalhe

Bom pessoal já coloquei uma vez aqui no forum este assunto mais ninguem me ajudou....
Peguei um exemplo já feito e quase consegui fazer....
Aqui tenho o código com as modificações que eu fiz


[b:79c3eff1ae]procedure TForm1.Button1Click(Sender: TObject);
var[/b:79c3eff1ae]HandCalc: THandle;
HandValue: THandle;
Rect: TRect;
pt: TPoint;
x: Integer;
s: array [ 0..2047 ] of char;
[b:79c3eff1ae]begin[/b:79c3eff1ae]
HandCalc := FindWindow(nil, ´Janela de Chat´);
if HandCalc <> 0 then
[b:79c3eff1ae]begin[/b:79c3eff1ae]
GetWindowRect( HandCalc, Rect );
handvalue := windows.FindWindowEx(HandCalc, 0, ´EDIT´, nil);
sendmessage(handvalue, wm_gettext, sizeof(s), integer(@s));
ShowMessage( Format( ´Valor[ ¬s ]\´, [ s ] ) );

[b:79c3eff1ae]end[/b:79c3eff1ae]
else
ShowMessage( ´Janela não esta Aberta!´ );
[b:79c3eff1ae]end;[/b:79c3eff1ae]

estou usando esta janela aqui e preciso pegar as informações dela.


quando executo a operação me vem esta messagem todo errada...

Alguém pode me ajudar aguardo !!!!