Отсылка почты через отдельный поток

[Hottabych]

Вот код, в котором, наверное, куча ошибок (если он сам не ошибка )
Помогите разобраться с этой байдой:

uses IdSMTP;
...

{$R *.dfm}
type
TRass = class(TThread)
private
 FHost: string;
 FUserName: string;
 FPassword : string;
protected
 procedure Execute; override;
published
public
 property Host: string read FHost write FHost;
 property UserName: string read FUserName write FUserName;
 property Password: string read FPassword write FPassword;
end;

....
procedure TRass.Execute;
var
smtp: TidSmtp;
begin
smtp := TIdSMTP.Create(nil);
smtp.Connect;
if smtp.Connected then
smtp.Send(Form1.IdMessage1); ???
end;
...

procedure TForm1.Button1Click(Sender: TObject);
var
S: TRass;
begin
s := TRass.Create(True);
s.Host := HostEdit.Text;
s.Username := LoginEdit.Text;
s.Password := PassEdit.Text;
s.FreeOnTerminate := True;;
s.Resume;
end;

При нажатии батона ничего не происходит...

[Квэнди]

А вы трасировкой не пробовали найти ошибку ? )

[Hottabych]

Не понял... Мне просто надо знать, правильно ли я написал класс, метод Execute...
P.S Я ужасно новичок.. Учу Делфи по форумам и по Самоучителю

[vitalik007]

наверное ты не заполнил Form1.IdMessage1
а перелаешь в функцию пустую запись

[Hottabych]

Я тоже так думал, но прога даже не подключается (SMTP.Connect), т.е соединение не мигает...

[Квэнди]

читать умеем ?

А вы трасировкой не пробовали найти ошибку ?

[Hottabych]

F7, F8 нажимал, но толком ничего не понял, все выполняется, программа запускается. При нажатии на Button1 в режиме отладчика события следующие:

Thread Start: Thread ID: 2200. Process Project1.exe (3700)
Module Load: MSWSOCK.dll. No Debug Info. Base Address: $71A30000. Process Project1.exe (3700)
Module Load: DNSAPI.dll. No Debug Info. Base Address: $76F10000. Process Project1.exe (3700)
Module Load: WINRNR.dll. No Debug Info. Base Address: $76FA0000. Process Project1.exe (3700)
Module Load: WLDAP32.dll. No Debug Info. Base Address: $76F50000. Process Project1.exe (3700)
Module Load: mdnsNSP.dll. No Debug Info. Base Address: $16080000. Process Project1.exe (3700)
Module Load: iphlpapi.dll. No Debug Info. Base Address: $76D50000. Process Project1.exe (3700)
Thread Exit: Thread ID: 2200. Process Project1.exe (3700)

[Квэнди]

причем здесь это ?
по нажатию F8 у вас отображается текущая строчка, которая будет выполнена, и т.д. так вот... собственно и есть вопрос какие строки выполняются, а какие нет ?

[Hottabych]

При нажатии ф8 отладчик пробегает по этим строчкам:
program Project1;
......
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
И запускается Application

Т.е по Unit1 не идет

[DOLBY]

потом неажимаешь на "батон" и смотришь, какие там строчки выполняются!!!