[maloy_ya]

собственно говоря пишу прогу она еще дико недоработанная и нубская так что не пинайте а подскажите лучше вот текст:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,   IdTCPClient, IdHTTP, jpeg;   type   TForm1 = class(TForm)     Memo1: TMemo;     Button1: TButton;     Button2: TButton;     Memo2: TMemo;     Memo3: TMemo;     Label1: TLabel;     Label2: TLabel;     Image1: TImage;     Button3: TButton;     IdHTTP1: TIdHTTP;     regestration: TButton;     Edit1: TEdit;     Edit2: TEdit;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure regestrationClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   inet:string;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.LoadFromFile('d:\temp\delphi\Projects\blogru\acc.txt'); end; procedure TForm1.Button2Click(Sender: TObject); var a,a1,a2: string; i,s,etc:integer; begin  // For s:=0 to  Memo2.Lines.Count-1 do   //   ShowMessage(IntToStr(Integer(@i)));   etc:=0;       for i:=0 to etc do         begin           a:= memo1.Lines[i];           a1:= Copy(a,1,Pos(':',a)-1);           a2:= copy (a,Pos(':',a)+1,20);           memo2.Text:=a1;           memo3.Text:=a2;           memo2.Lines.SaveToFile('File1.txt');           memo3.Lines.SaveToFile('File2.txt');         end; end; procedure TForm1.Button3Click(Sender: TObject); var FS:TFileStream; begin  //=IdHTTP1.Get('http://blog.ru/registration/step1?backurl=http%3A%2F%2Fblog.ru%2F');  FS:=TFileStream.Create('captcha.jpg',FMCreate);  IdHTTP1.Get('http://blog.ru/inc/captcha/image.php', FS);  FS.Free;  Image1.Picture.LoadFromFile('captcha.jpg'); end;   procedure TForm1.regestrationClick(Sender: TObject); var   Data:TStringList;     begin        Data:=TStringList.Create;        Data.Add('user_data[nick]='+edit1.Text);        Data.Add('user_data[email]='+memo2.Text);        Data.Add('user_data[password]='+memo3.Text);        Data.Add('user_data[password_confirm]='+memo3.Text);        Data.Add('user_data[sex]=female');        Data.Add('user_data[ code]='+Edit2.Text);        Data.Add('user_data[agreement]=1');        inet:=IdHTTP1.Post('http://blog.ru/registration/step1/submit', Data);     end; end.

компилятор не выдает никаких ошибок а вот при отправке пост запроса вываливаеться вот такая беда:



вот снифер:



подскажите плиз в чем беда??