[delphi] SMTP component not ready

Mam problem z wysłaniem maila przez SMTP. Zrobiłem tak :

procedure TForm1.Button1Click(Sender: TObject);
begin
  smtp1.host:=edthost.text;                     {serwer np : poczta.interia.pl}
  smtp1.port:=edtport.text;                      {port 25}
  smtp1.fromname:=edit1.text;                 {od kogo}
  smtp1.hdrfrom:=edit2.text;                     {moj mail}
  smtp1.hdrto:=edit3.text;                          {do kogo  np [email protected]}
  smtp1.hdrreplyto:=edit4.text;                   {nagłowek}
  smtp1.hdrsubject:=edit5.text;                   {temat}
  smtp1.mailmessage.assign(memo1.Lines); {treść}
  smtp1.Connect;
  smtp1.Mail;                     
{ -------}
end;

tam gdzie napisałem {-------} zgłasza się błąd :
SMTP component not ready
lub inaczej :
SMTP component already connected

Wie ktoś co tu jeszcze brakuje?
:( Proszę o pomoc. Pozdrawiam!

try finally

try except