Liste wie im Explorer

[Äfan]

OK, also ich habe das jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
sr: tsearchrec;
begin
with ListView1.Items.Add do
 begin
 findfirst(Edit1.Text+'\*.*',faanyfile,sr);
 Caption := (sr.Name);
 Subitems.Add(inttostr((sr.Size) div 1024));
end;
 findclose(sr)
end;

Wie mache ich das, damit er alle Dateien des Ordners auflistet ? So macht er nur die erste datei. Irgendwie komm ich net drauf und mit ner for-do schleife bekomm ichs net hin.

Und bei div 1024 habe ich das problem, dass bei einer datei, die z.B. 7,49 KB hat, nur 7 angezeigt wird. Wie gehts, dass auch zwei dezimalstellen gezeigt werden ?

MFG