отправка файла по почте

[DeDoK]

Здраствуйте ув. форумчане. помогите пожалуста в решении проблемы.
Пишу программу которая должна отсылать определнный текстовый файл на email. но не сильно получаеться.
Вот код:

procedure TForm1.ProverkaTimer(Sender: TObject);
var
M: TIdMessage;
ATT: Tidattachment;
f : TFileStream;
razmer : int64;
begin
Memo1.Lines.SaveToFile('cool.txt');
try
f:=TFileStream.Create('cool.txt', fmOpenRead);
except
exit;
end;
razmer:=f.Size;
if razmer>=10000 then
begin
M := TIdMessage.Create(Form1);
m.Body.Clear;
M.From.Text := 'egorka';
m.From.Address:='egorka-2006_90@mail.ru';
M.Recipients.Add;
M.Subject := 'Тема письма'; //Тема письма
m.Recipients.EMailAddresses:='egorka@xaker.ru';
IdSMTP1.AuthenticationType := atlogin;
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Username := 'egorka@xaker.ru';
IdSMTP1.Password := '********';
m.IsEncoded:=true;
ATT := TIdAttachment.Create(m.MessageParts,'cool.txt');
try
idSMTP1.Connect();
if idSMTP1.Connected then
begin
idSMTP1.Send(m);
MessageDlg('Отправка завершена',mtInformation,[mbOk],0);
DeleteFile('cool.txt');
end
else MessageDlg('Отправка не завершена',mtInformation,[mbOk],0);
finally
IdSMTP1.Disconnect;
end;
att.free;
end;
f.Free;
end;

Все компилируется но при набирании размера выскакует сообщение что к файлу нет доступа т.к. он занят другим процессом/ Помогите сделать нормально

[Квэнди]

f:=TFileStream.Create('cool.txt', fmOpenRead);

открыть- то вы его открыли, но закрыть перед его использованием:

ATT := TIdAttachment.Create(m.MessageParts,'cool.txt');

вы не закрыли )