Hvorfor dælen vil det ikke virke!?

SletteLog er en procedure der ligge andet steds i programmet.
Efter hvad jeg kan læse mig frem til i Delphi hjælpen, skulle det virke:

-Torben

der skal nok nogle parametre med til slettelog

/Martin

Proceduren ser således ud - ved ikke lige hvad jeg skulle tilføje af parametre

procedure TForm1.SletteLog(Sender: TObject);
begin

if MessageDlg('Vil du virkelig slette: ' + FileListBox1.FileName, mtInformation, [mbOK, mbCancel],0)= mrOk then
  begin
  DeleteFile(FileListBox1.FileName);
  FileListBox1.Update;
  StatusBar1.Panels[3].Text := 'Du har: ' + IntToStr(FileListBox1.Items.Count) + ' logs';
  RichEdit1.Clear;
  ListBox1.Clear;
  MainMenu1.Items[0].Items[0].Enabled := False;
  MainMenu1.Items[0].Items[1].Enabled := False;
  MainMenu1.Items[0].Items[2].Enabled := False;
  MainMenu1.Items[1].Items[0].Enabled := False;
  end;
end;

SletteLog(Sender: TObject);

forventer en parameter "sender" af typen TObject, da du ikke bruger den giver du en NIL med

SletteLog(NIL);

/Martin

Hvis du slet ikke bruger den variabel der bliver sendt med kan du bare slette den. Så hedder din funktion:

procedure TForm1.SletteLog;
begin
  if MessageDlg('Vil du virkelig slette: ' + FileListBox1.FileName,  mtInformation, [mbOK, mbCancel],0)= mrOk then
  begin
    DeleteFile(FileListBox1.FileName);
    FileListBox1.Update;
    StatusBar1.Panels[3].Text := 'Du har: ' + IntToStr(FileListBox1.Items.Count) + ' logs';
    RichEdit1.Clear;
    ListBox1.Clear;
    MainMenu1.Items[0].Items[0].Enabled := False;
    MainMenu1.Items[0].Items[1].Enabled := False;
    MainMenu1.Items[0].Items[2].Enabled := False;
    MainMenu1.Items[1].Items[0].Enabled := False;
  end;
end;

med mindre det er en TNotifyEvent procedure.