File not found i sletnings procedure

I en listbox har jeg et antal text dokumenter hvor man vælger den som skal slettes.

Hvis jeg først vælger ikke at slette dokumentet og bagefter vælger at slette så får jeg meddelsen "file not found"

Følgende kode er brugt.....


procedure TForm1.Button8Click(Sender: TObject);
var f:file;
    FilVarNavn: string[80];
    I:Integer;
    Dialogtekst:string;
    begin
for i := Listbox1.Items.Count - 1 downto 0 do
    if Listbox1.Selected[i] then

FilVarNavn := ListBox1.Items[ListBox1.ItemIndex];
assignfile(f,FilVarNavn);
begin
Dialogtekst:= 'Ønsker du at slette: ''?';

if application.MessageBox(Pchar(Dialogtekst),
          'test program: Bekræft sletning',
          MB_YESNO + MB_ICONEXCLAMATION) = IDYES

then
ListBox1.Items.Delete(ListBox1.ItemIndex);
erase(f);
end;
end;