Eigenen Explorer: Datum von Datei und keine Ordner zeigen

[Äfan]

Servus,

Der folgende code fügt ListView Dateien aus einem Pfad zu:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
sr: tsearchrec;
found: integer;
begin

found:= findfirst(Edit1.Text+'\*',faanyfile,sr);
while found=0 do
begin
with ListView1.Items.Add do
 begin
 found:=findnext(sr);
 Caption := (sr.Name);
 Subitems.Add(formatfloat('0.00',sr.Size / 1024)+' KB');
>>>>>>>>>> Subitems.Add(); <<<<<<<<<<
 end;
end;
 findclose(sr)
end;

1. Ich will, dass zwischen den Pfeilen (bei Subitems.add() Das Datum der Datei drinsteht (so wie im explorer) wie mache ich, dass immer das Datum der angezeigt wird ?

2. Was muss ich ändern, damit nur dateien und keine Ordner angezeigt wer den ?

PS: Habe beide fragen in ein Thema gemacht, da sie ja verwand sind.

MFG