¿que intentas hacer?
Analicemos tu código:
Código Delphi
[-]
var
mango:THandle;
buffer:PChar;
i:Integer;
begin
mango:= FindWindow('IEFrame',nil);
if mango <> 0 then
begin
ShowMessage('ok');
i:=sendmessage(mango,WM_GETTEXTLENGTH,0,200);
form1.Memo1.Lines.Add(string(buffer));
end else
begin
ShowMessage('no');
end;
No entiendo lo que quieres conseguir. Aunque el código que utilizas me recuerda a este
otro hilo. ¿Lo sacaste de ahi?