Погите с idSMTP

[Satorin]

var
Str: TStringList;
FileName, Key: string;
begin
IdSMTP1.Host := 'smtp.mail.ru';
IdSMTP1.Port := 25;
IdSMTP1.Username := '56456456';
IdSMTP1.Password := '456563456';
IdMessage1.From.Address:='6666@mail.ru';
IdMessage1.Subject := 'Itachi';
IdMessage1.Body.Text := Str.Text;
IdMessage1.Recipients.Add;
IdMessage1.Recipients.Items[0].Text := '563456';
IdSMTP1.Connect;
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

дополнете пожалуйста код что-бы к письму прекриплялся файл