procedure TForm1.Button1Click(Sender: TObject);
var
data: TStringList;
response, build_id, cookie: string;
begin
IdHTTP1.HandleRedirects := False;
IdHTTP1.Request.CustomHeaders.Text := 'Cookie: ';
IdHTTP1.Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:23.0) Gecko/20100101 Firefox/23.0';
//Получаем исходник страницы
response := IdHTTP1.Get('http://likest.ru/user');
//выдергиваем значение параметра form_build_id (нужно доля авторизации)
Delete(response, 1, pos('build_id" value="', response) + length('build_id" value="') -1);
build_id := Copy(response, 1, pos('"', response) -1);
//Прописываем параметры Post-запроса
Data := TStringList.Create;
Data.Add('name=' + Edit1.Text);
Data.Add('pass=' + Edit2.Text);
Data.Add('form_build_id=' + build_id);
Data.Add('form_id=user_login');
Data.Add('op=Вход');
//Отправляем запрос пытаясь пройти авторизацию
try
IdHTTP1.Post('http://likest.ru/user', Data);
except