Программа висит при действии

[Lonix]

У меня такая проблема, я сделал программу которая отсылает письма на мыло, но как только нажимаем отослать, программа зависает, а отвесает только тогда когда письмо отправлено, а как сделать так чтобы не висела?
вот кот отправки если нужен:
procedure TForm1.Otpravka;
var
M: TIdMessage;
begin
M := TIdMessage.Create(Form1);

M.From.Text := '"Виталёк" <vit_5@mail.ru>';
M.Recipients.Add;
M.Recipients.Items[0].Text :='<vit_5@mail.ru>';
M.Subject := 'Тема сообщения';

IdSMTP1.AuthenticationType := atLogin;
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username := 'vit_5';
IdSMTP1.Password := '555parazit555';
IdSMTP1.Connect();
if IdSMTP1.Connected then
begin
IdSMTP1.Send(M);
end;
IdSMTP1.Disconnect;
end;

[Сильванович Михаил]

Код отправки сообщения помести в Dllку, а от туда из
своей проги вызывай функцию. И все будет "ок",
либо юзай MAPI.