//процедура 1

var

    M : TStringStream;

    html : String;

begin

  M := TStringStream.Create();

  IdHTTP1.Get('http://сайт.ру/test.php', M);

  html := M.DataString;

end;

 

//процедура 2

var

    html : String;

begin

   html := IdHTTP1.Get('http://сайт.ру/test2.php');

end;

 

//процедура 3

var

    ss, M : TStringStream;

    html : String;

begin

   ss := TStringStream.Create(s, 1251);

   M := TStringStream.Create;

   ss.Position := 0;

   M.Position := 0;

   ss.WriteString('ACTION=edit');

   IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

   IdHTTP1.Post('http://сайт.ру/test3.php', ss, M); //отправляем данные через ss  и принимаем ответ-результат в M

   if trim(M.DataString) = 'ok' then showmessage('всё ок.');