Вообще тут не стоило помогать....
Код:
var
SL: TStringList;
Otvet: String;
Ur: String;
begin
Otvet:= IdHTTP1.get(url);
SL:= TStringlist.Create;
SL.Add('username=' +'');
SL.Add('password=' + '');
Otvet:= IdHTTP1_Pay.Post('' +url +'login.php', SL);
Otvet:= IdHttp1_Pay.Get('' +url +'nek.php');
Ur:= PosSrc(Otvet);
Otvet:= IdHttp1_Pay.Get('' + url +Ur);
SL.Free;
end;