ListView - mit Dateien füllen und auf Inhalt prüfen

[atgis]

Hi,

Also ich hab hier ein Problem. Undzwar will ich im Programm einen Ordner (Pfad) angeben. Der Inhalt des Ordners sind TXT-Dateien...die sollen nun in das ListView geladen werden. Soweit so gut. Das funktioniert schonmal...

Delphi-Quellcode:

procedure TForm1.ReadDir(WorkingDir: String);
var  SearchRec : TSearchRec;

  procedure DoSomeThing(SearchRec : TSearchRec);
  var ListItem: TListItem;
  begin
   if FileExists(WorkingDir +SearchRec.name) then //Hier soll geprüft werden ob die TXT Datei Leer ist oder nicht...
   //PC'S
   begin
    ListItem:= ListView1.Items.Add;
    ListItem.Caption:=ChangeFileExt(searchrec.name,'');
    ListItem.ImageIndex:= 1;
   end
   else
   //leere Dateien
   begin
    ListItem:= ListView1.Items.Add;
    ListItem.Caption:=searchrec.name;
    ListItem.ImageIndex:= 0;
   end;
  end;

begin
  if WorkingDir[length(WorkingDir)] <> '\' then
    WorkingDir := WorkingDir + '\';
  if findfirst(WorkingDir + '*.*', faanyfile, SearchRec) = 0 then
  repeat
    if searchrec.name[1] <> '.' then
    begin
      StatusBar1.Panels[3].text := WorkingDir + searchrec.Name;
      if ((searchrec.attr and fadirectory) <> fadirectory) then
      begin

        if fileexists(WorkingDir + searchrec.name) then
        begin
          DoSomeThing(SearchRec);
        end else
        begin
          showmessage('Datei ' + WorkingDir + SearchRec.Name + ' konnte nicht gelesen werden');
        end;
      end else
        if cbRekursiv.Checked then
         ReadDir(WorkingDir + searchrec.name);
    end;
  until (findnext(searchrec) <> 0) or Application.Terminated;
  findclose(searchrec);
end;

//Menü Form2 öffnen zum Pfad eingeben
procedure TForm1.Verzeichnis1Click(Sender: TObject);
var workingdir: string;
begin
 if form2.ShowModal = mrOk then
 begin
   Workingdir:=form2.edPfad.text;
   ReadDir(workingdir);
 end
 else
end;

Aber mein Problem ist nun: TXT's mit einem Inhalt sollen ein PC-Symbol erhalten, leere TXT's ein anderes Symbol...Aber wie finde ich heraus ob die Datei leer ist? Ich hab im Quelltext die Stelle markiert, wo die Abfrage stehen sollte...