procedure SoccerProjectLogin(WebBrowser: TWebBrowser; const Login, Password: string);
var
  I: Integer;
  S: AnsiString;
  Headers: OleVariant;
  PostData: OleVariant;
const
  RequestURL = 'http://www.soccerproject.com/login.php';
  PostDataFormat = 'section=3&step=2&uID=0&eID=0&sID=0&referer=&lng=en&login=%s&password=%s';
begin
  Headers := 'Content-Type: application/x-www-form-urlencoded' + #13#10;

  S := AnsiString(Format(PostDataFormat, [Login, Password]));
  PostData := VarArrayCreate([0, Length(S) - 1], varByte);
  for I := 0 to Length(S) - 1 do
    PostData[I] := Ord(S[I + 1]);

  WebBrowser.Navigate(RequestURL, EmptyParam, EmptyParam, PostData, Headers);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SoccerProjectLogin(WebBrowser1, 'TLama', '*****');
end;