File aus TIDAttachment Löschen ?

[wlfmario]

Hallo zusammen,

ich versände mit meinem Projekt Mails mit mehreren Anhängen.
Die Anhänge lade ich mir per TIDAttachment und schreibe den Filenamen in eine ListView.

Delphi-Quellcode:

procedure TMailSend.ButtonLadenClick(Sender: TObject);
begin
  if (Opendialog1.Execute) then
  begin
    TiDAttachment.Create(MsgSend.MessageParts, Opendialog1.FileName);
    ListviewAnhang.Items.Add.Caption := ExtractFilename(Opendialog1.FileName);
  end;
end;

Wenn ich jetzt aber ein File nicht mit senden möchte, dachte ich mir, das ich es einfach aus der TIDAttachment Lösche.
Leider fällt mir keine möglichkeit ein die Attachmenst einzeln zu löschen und nicht alle.
Wie kann ich so etwas machen, das wenn ich im ListView ein FileName anklicke das richtige File aus dem Attachments gelöscht wird ?

Delphi-Quellcode:

procedure TMailSend.ListViewAnhangKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_DELETE then
    if ListViewAnhang.Selected <> nil then
    begin
      // hier das Attachment Löschen ????????
      ListViewAnhang.DeleteSelected;
      {Anhang Löschen}
    end
    else
      exit;
end;