[mazik777]

Здравствуйте!!!
Цель:
Вот код программы:

Код:

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, IdBaseComponent, IdComponent, IdTCPServer, IdCustomHTTPServer, 
IdHTTPServer, StdCtrls; 

type 
TForm1 = class(TForm) 
Memo1: TMemo; 
Edit1: TEdit; 
Edit2: TEdit; 
Start: TButton; 
IdHTTPServer1: TIdHTTPServer; 
private 
{ Private declarations } 
public 
{ Private declarations } 
end; 

var 
Form1: Tform1; 

implementation 

{$R *.dfm} 

procendure TForm1.Button1Click(Sender: TObject); 
var 
Data: Tstringlist; 
HTML, go: string; 
Pars1, Pars2: string; 
begin 
Data:=Tstringlist.Create; 
Data.Add('user[login]="+ Edit1.Txt); 
Data.Add('user[pass]="+ Edit1.Txt); 
Data.Add('user[submit]=Войти'); 
HTML:=IdHTTP1.Post(go, data); 
if pos('href="user/logout"', HTML)<>0 then 
begin 

end 
else 
begin 
ShowMessege('Мы авторизовались'); 
Memo1.Lines.Add('Ошибка авторизации'); 
end; 
end; 

end. 

Админ: Пользуемся тегами для оформления кода!

Суть:
1)проверьте пожалуйста правильность кода((
2)Data:=Tstringlist.Create;
Data.Add('user[login]="+ Edit1.Txt);
Data.Add('user[pass]="+ Edit1.Txt);
Data.Add('user[submit]=Войти');

-это форма входа в турбобит,а мне нужно сделать на майл...Помогите очень важно,нужно