[fall]

Если еще нужно, вот код, вырванный из моей одной проги. Необходим синапс.

function wmmail_ru_func: bool;
var
  temp: string;
  HTTP: THTTPSend;
  URLData: string;
Label
  end_;

begin

  HTTP:= THTTPSend.Create;
  try

    form1.Memo1.Lines.Add('wmmail.ru - Логонимся...') ;

    HTTP.Headers.Add('Referer: http://www.wmmail.ru/index.php');
    URLData  := 'cf=akk-login&ulogin='+login+'&pass='+pass+'&x=11&y=12';
    HTTP.Document.Write(Pointer(URLData)^, Length(URLData));
    HTTP.MimeType := 'application/x-www-form-urlencoded';

    if not HTTP.HTTPMethod('POST', 'http://www.wmmail.ru/index.php')
    then begin
      form1.Memo1.Lines.Add('www.wmmail.ru - Ошибка связи!') ;
      goto end_;
    end;

    temp:= StreamToString(HTTP.Document)    ;

    HTTP.Document.SaveToFile('logs\wmmail.ru-login-1_[docum].html');
    HTTP.Headers.SaveToFile('logs\wmmail.ru-login-1_[head].html');

    if pos('Последнее посещение аккаунта', temp)>0
    then begin
      form1.Memo1.Lines.Add('wmmail.ru - этап 1 - ok') ;
      result:=true;
    end else begin
      form1.Memo1.Lines.Add('wmmail.ru - этап 1 - Ошибка!') ;
      goto end_;
    end;


   // обработка результата


    end_:

  finally
    HTTP.Free;
    result:=false;
  end;


end; 


Как-то так...