Abfage einer FileListbox auf doppelte dateien

[SaFu]

Leider geht das doch nicht so

Delphi-Quellcode:

procedure TForm7.speichern;
begin
if FileListBox1.Items.IndexOf (FileListbox1.Items [FileListBox1.ItemIndex])then
    MessageDlgPos ('Wollen Sie Wirklich diese Datei überschreiben', mtInformation, [mbYes,mbNo], 0, 290, 300):= mbYes then
   begin
    speichern;
   end;
end;

es muss nür abgfragt werden ob die datei vorhanden ist in der FilListBox und wen ja nur fragen ob sie überschrieben werden soll oder nicht
????