El archivo atachado al email, lo selecione el usuario

[roman]

Usa un OpenDialogBox (de la paleta Dialogs):

Código Delphi [-]
if OpenDialogBox.Execute then
begin
  TIdAttachment.Create(IdMessage1.MessageParts, OpenDialogBox.FileName);
end;

Este código lo pones, por ejemplo, en el OnClick de un botón.

// Saludos