var
  lShellBrowser: TShellBrowser;
begin
  lShellBrowser := TShellBrowser.Create(nil);
  lShellBrowser.Folder := 'C:Windows'; // path to copy from
  // Files to copy
  lShellBrowser.MultiObjects.Add('Explorer.exe');
  lShellBrowser.MultiObjects.Add('Regedit.exe');
  lShellBrowser.AsyncContextMenuOperations := false; // Make this synchronous, as we can paste only after copying is finished
  lShellBrowser.InvokeContextMenuCommand('Copy'));
  // Now paste
  Application.ProcessMessages; // This is important, context menu seems to recevie a message without that it doesn't work.
  lShellBrowser.FullPath := 'D:MyFolder';
  lShellBrowser.InvokeContextMenuCommand('PASTE'));
  lShellbrowser.Free();
end;