Löschen von Dateien

[SaFu]

Ich steh heute voll aufm schlauch.

das FileName hate ich schon reingesetzt, hatte nur das end an die falsche stelle gestzt.

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.FileName <> '' then
  begin
    if Application.MessageBox('Wollen sie wirklich dieses Bild Löschen  ','Löschinformation',68)=6 Then
      begin
        a:= FileListBox1.FileName;
        DeleteFile( FileListBox1.FileName);
        ShowMessage('Datei:  ' +FileListBox1.FileName+'  wurde gelöscht');
        FileListbox1.Update;
      end;
     end// hier gehört es hin
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
end;

aber danke nochmals für eure hilfe