[lmikle]

Если используешь встроенный Web-browser, то все просто:

Взято из проекта, который логинится на сайт автоматом:

Код:

procedure TMainForm.Login(ASilent : Boolean);
var
  I : Integer;
  ALogin, APass : String;
  ALoginData : OleVariant;
  ALoginDataStr : String;
  AHeaders : OleVariant;
begin
  FEnableRobot := False;

  If ASilent
    Then
      Begin
        ALogin := FUserName;
        APass := FPassword;
      End
    Else
      With TLoginForm.Create(Application) Do
        Begin
          GetLoginInfo(FUserName, FPassword, FSavePassword);
          UserName := FUserName;
          Password := FPassword;
          SavePassword := FSavePassword;
          If Not Execute Then Application.Terminate;

          ALogin := UserName;
          APass := Password;

          Free;
        End;

  ALoginDataStr := Format('name=%s&pass=%s',[HTTPEncode(ALogin),HTTPEncode(APass)]);
  ALoginData := VarArrayCreate([0, Length(ALoginDataStr) - 1], varByte);
  For I := 1 To Length(ALoginDataStr) Do
    ALoginData[I-1] := Ord(ALoginDataStr[i]);

  AHeaders := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

  MainWnd.Navigate('http://******.ru/game/login.php',EmptyParam,EmptyParam,ALoginData,AHeaders);
end;