[DELPHI] - Clear My Document

Code:

---

uses
  ShlObj;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SHAddToRecentDocs(0, nil);
end;

---