отправка письма с SakSMTP

[RUSlan48]

Я совсем запутался и решил создать новую тему. Мне нужно отправить письмо, используя компонент SakSmtp. Вот код:

procedure TForm1.Button4Click(Sender: TObject);
begin
 SakSmtp1.Host:='smtp.mail.ru';
 SakSmtp1.Port:='25';

 SakMsg1.Date:=DateToStr(date);
 SakMsg1.UserName:='1234';
 SakMsg1.From:='1234@mail.ru';
 SakMsg1.XMailer:='Project1.exe';
 SakMsg1.Subject:='тема';
 SakMsg1.Text.Assign(Memo1.Lines);
 SakMsg1.AttachedFiles.Add(Edit1.Text);

 try
   SakSmtp1.Connect;
   if not sakSmtp1.SMTPError then begin
     SakMsg1.SendTo:=Edit2.Text;
     SakSmtp1.SendTheMessage(SakMsg1);
     SakSmtp1.Disconnect;
     ShowMessage('Отправка закончена');
   end;
 except
   MessageDlg('Ошибка!', mtError, [mbOK], 0);
 end;
 
end;

Когда дело доходит до функции SakSmtp1.SendTheMessage(SakMsg1), то SakSmtp1 оказывается not connected...
Подскажите, что не так?