Авторизация на профивм через делфи.
Компонент http.

                        
procedure TForm1.Button1Click(Sender: TObject);

var

LoginData, Response: TStrings;

 

begin

LoginData := TStringList.Create;

Response := TStringList.Create;

 

try

LoginData.Add('type=nick'); {если авторизация через ник, то type=nick. Если через ID, то type=ID}

LoginData.Add('nick='+Edit1.Text); {ник}

LoginData.Add('pass='+Edit2.Text); {пароль}

Response.Text := IdHTTP1.Post('http://profiwm.ru/log.in.php?login',LoginData); {запрос. В Response.Text будетhtml код страницы после авторизации с ним и работай}

 

{Код после авторизации}

 

finally

LoginData.Free;

end;

 

end;