Listar el contenido de un directorio

[GaaK]

El siguiente es un procedure asignado a un botón que borra los Documentos Recientes:

Código Delphi [-]
procedure TfrmMain.btnOkClick(Sender: TObject);
var
  sPath: String;
  SR: TSearchRec;
begin
    sPath := 'C:\Documents and Settings\Propietario\Recent';
    if sPath[Length(sPath)]<>'\' then sPath := sPath+'\';
    if FindFirst(sPath+'*.*', faAnyFile, SR) = 0 then begin
      repeat
        if (SR.Attr <> faDirectory) then begin
          DeleteFile(sPath+SR.Name);
        end;
      until FindNext(SR)<>0;
      FindClose(SR);
    end;
end;

... en lugar del DeleteFile usted podría usar Memo1.Lines.Add o algo parecido sabiendo que el nombre es SR.Name.

- Gaak -