[ApplicatiOn]

открываем файл

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute
 then Edit1.Text:=OpenDialog1.FileName;
end;

загружаем

Код:

if FileExists(Edit1.Text)
 then TIdAttachment.Create(MailMessage.MessageParts,Edit1.Text);

вроде так