var sl: TStrings;begin IdHttp1.Host := '...'; IdHttp1.Connect(); sl := TStringList.Create; try sl.Add('action=...'); sl.Add('user=...'); sl.Add('passwrd=...'); Memo1.Lines.Text := IdHttp1.Post ('http://...', sl); finally sl.Free; end;end;