Pegar Dados do IE / FF

Isso é o básico,pega a URL corrente digitada em vários navegadores;
uses
ddeman;
procedure GetCurrentURL(out URL, Title: string);
var
DDEClient : TDDEClientConv;
p, q: PChar;
i: Integer;
begin
DDEClient := TDDEClientConv.Create(nil);
try
with DDEClient do if SetLink(´IExplore´, ´WWW_GetWindowInfo´) or
SetLink(´Netscape´, ´WWW_GetWindowInfo´) or
SetLink(´Mosaic´, ´WWW_GetWindowInfo´) or
SetLink(´Netscp6´, ´WWW_GetWindowInfo´) or
SetLink(´Opera´, ´WWW_GetWindowInfo´) or
SetLink(´Mozilla´, ´WWW_GetWindowInfo´) or
SetLink(´Firefox´, ´WWW_GetWindowInfo´) then
p := SetData(´0xFFFFFFFF´)
else exit;
if Assigned(p) then try
q := p;
Assert(q^ = ´´´);
SetLength(URL, StrLen(q));
Inc(q);
i := 0;
while q^ <> ´´´ do begin
if (q^ = ´\´) and (q[1] = ´´´) then Inc(q);
Inc(i);
URL[i] := q^;
Inc(q);
end;
SetLength(URL, i);
SetLength(Title, StrLen(q));
i := 0;
Inc(q, 3);
while q^ <> ´´´ do begin
if (q^ = ´\´) and (q[1] = ´´´) then Inc(q);
Inc(i);
Title[i] := q^;
Inc(q);
end;
SetLength(Title, i);
finally
StrDispose(p);
end
finally
DDEClient.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
url,text:string;
begin
GetCurrentURL(url,text);
Memo1.Lines.Add(url+´ ´+text);
end;

Nossa amigo me ajudou muito isso :D
Mas eu precisava tbm achar uma soluçãi para pegar exatamente o POST por ex: eu passo através do idhttp um post e queria pegar em um outro projeto o que ele passou.
Ficaria muito agradecido se pudesse me ajudar.
[]´s