//Запрашиваю страницу чтоб выдрать ссылку на капчу
//пока еще ручками
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Text:=http.Get('http://www.km.ru/r/register.aspx?app=km');

end;
//Отправляю форму и приходит что капча не пральная
procedure TForm1.Button2Click(Sender: TObject);
var list:tstringlist;
begin
 list:=tstringlist.Create;
list.Add('userFirstName=Alex');
list.Add('userLastName=Lods');
list.Add('userGender=m');
list.Add('userDayBirth=24');
list.Add('userMonthBirth=1');
list.Add('userYearBirth=1988');
list.Add('userLoginName='+edit1.text);
list.Add('userDomainName=km.ru');
list.Add('userPassword=zxccxz');
list.Add('userPasswordRet=zxccxz');
list.Add('userQuestion=какой нить вопрос);
list.Add('userQuestionStr=');
list.Add('userAnswer=23232332');
list.Add('userAltMail=');
list.Add('userRegSymbols='+edit2.text);
memo1.Text:=http.post('http://www.km.ru/r/register.aspx',list);
end;
//Тут просматриваю капчу
procedure TForm1.Button3Click(Sender: TObject);
begin
webbrowser1.Navigate('http://www.km.ru/r/PictureDigitViewNet.aspx?rnd='+edit2.text);
end;