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

[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;

Детали про IdMessage я не написал, при нажатии на Button ничего не происходит/