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 -