Отправка через SMTP

[Hottabych]

При отправке почты через компоненты IdSMTP и IdMessage прога типа виснет... Сообщение отправляется, в конце ShowMessage пишет 'Отправлено'.
Как сделать, чтобы отправка производилась без зависания главного окна?

procedure TForm1.Button1Click(Sender: TObject);
var
Mess : TIdMessage;
n, i : integer;
begin
Mess := TidMessage.Create(Form1);
IdSmtp1.Host := HostEdit.Text;
IdSmtp1.Username := LoginEdit.Text;
IdSmtp1.Password := PassEdit.Text;
IdSmtp1.Connect;
n := mailMemo.Lines.Count;
if IdSmtp1.Connected then begin
for i := 0 to n do begin
if length(MailMemo.Lines.Strings[i]) > 0 then begin
Mess.Recipients.EMailAddresses := Mailmemo.Lines.Strings[i];
mess.from.Address := AdressEdit.Text;
mess.from.Name := NameEdit.Text;
mess.Body.Text := BodyMessage.Lines.Text;
mess.Subject := Edit1.Text;
//Отправляем мессагу
IdSmtp1.Send(mess); end;
end;
ShowMessage('Сообщения отправлены успешно'); end;
IdSmtp1.Disconnect;
end;

З.Ы. Я только начинаю изучать делфи, поэтому может быть выглядит примитивно

[Квэнди]

Зависание обсуловлено блокирующим сокетом. Попробуйте "бросить" на форму компонент IdAntiFreeze

[Hottabych]

Кинул на форму энтот компонент, прога не зависает, но все компоненты все равно неактивные... Вообще как его, IdAntiFreeze, юзать (свойства и тп)?

[Квэнди]

Во время коннекта просто выводите сообщение мол идет подключение... чтобы пользователь понимал. А прямо перед подключением принудительно дизейблите все компоненты, тогда подобная проблема станет джостаточно хорошо обернута.