procedure SendmailMapi(...)
  var FileAttach: TMapiFileDesc;
      ...
begin
  ...

  erg := FindFirst(Ordner + '*.*', faAnyFile, Info);

  while (erg = 0) do
  begin
    try
      if (info.name <> '.')
      and (info.name <> '..')
      then begin
        // hier würde ich gerne jedes mal eine neue Variable vom Typ TMapiFileDesc erzeugen
        // ohne FileAttach2,FileAttach3 usw. vorher als Variable deklariert zu haben
        strAnhang := Ordner + Info.Name;
        FillChar(FileAttach, SizeOf(FileAttach), 0);
        FileAttach.nPosition := Cardinal($FFFFFFFF);
        FileAttach.lpszPathName := PChar(strAnhang);
        nFileCount := 1;
        lpFiles := @FileAttach;
      end;
    except
      ShowMessage('Fehler' + #13#10 +
                   exception(ExceptObject).Message);
    end;
    erg := FindNext(Info);
  end;
  FindClose(Info);
...
  // dann Mail versenden --> ist OK
end;