Не отсылает email с базой Access

[Denis3]

Привет,

У меня проблема с отсылкой писем используя данные из базы Access.

procedure TIzmainas.Button1Click(Sender: TObject);
var i:integer;
begin
IdSMTP1.Port:=25;
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Connect(5000);
IdSMTP1.AuthenticationType:=atLogin ;
IdSMTP1.Username:='mail';
IdSMTP1.Password:='password';
if IdSMTP1.Connected=true then
for i:=0 to Student.ADOTable1.RecordCount do
begin
IdMessage1.Clear;
IdMessage1.Subject:=ComboBox1.Text;
IdMessage1.Recipients.EMailAddresse s:=Student.ADOTable1.FieldValues['Email']; // названия эмайла на которые отправлять
IdMessage1.From.Address:='mail@mail .ru';
IdMessage1.Body.Text:=Memo1.Text;
IdMessage1.From.Name:='mail';
Student.ADOTable1.RecNo:=i;
if ComboBox2.Text=Student.ADOTable1.Fi eldValues['Grupa'] then //в ComboBox2 я вписываю название группы, когда оно совпадает то он смотрит название эмайла и отправляет только тем у кого группа совпадает с ComboBox2
IdSMTP1.Send(IdMessage1);
end;
IdSMTP1.Disconnect;
end;

Выдаёт ошибку

[Denis3]

Если использовать базу созданную с помощью BDEAdministrator, а таблицы через DataBase Desktop, то всё в порядке, а вот с Access не отправляет.

[Denis3]

Ругается на строчку

IdSMTP1.Disconnect;