uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ShellExecute(Application.Handle, 'Find', 'c:\', nil, nil, SW_SHOWNORMAL);
end;