Löschen von Dateien

[SaFu]

Hab gerade nochmal ne frage

Wie kann ich abfragen ob die FileListBox leer ist und wenn ja message ausgeben hab es so geht aber nicht

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
var a :String;
begin
if FileListBox1.<> '' 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
  else
    Application.MessageBox('Bitte Name des zu Löschenden Bildes auswählen','Löschinformation',48);
  end;
end;