[NumLock]

Код:

var
  ASearchRec: TSearchRec;
begin
  if FindFirst('c:\*.*', faAnyFile, ASearchRec)=0 then
  begin
    repeat
      if (ASearchRec.Attr and faDirectory)<>0 then
        Memo1.Lines.Add('['+ASearchRec.Name+']')
      else
        Memo2.Lines.Add(ASearchRec.Name);
    until FindNext(ASearchRec)<>0;
    FindClose(ASearchRec);
  end;
end;

все честно!