ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
var
data: TStringList;
begin
data := TStringList.Create;
try
{add the used parameters for the script}
data.Add('login=123');
data.Add('passwd=123');
data.Add('submit=Войти');
{ Call the Post method of TIdHTTP and read the result into TMemo}
Memo1.Lines.Text := http.Post('http://pda-passport.yandex.ru/passport?mode=auth', data);
finally
data.Free;
end;
end;