// Hiermit kann der Dialog zum Kopieren von Disketten aufgerufen werden.

// Getestet mit D4 unter Win98

uses shellapi,...

procedure TForm1.Button8Click(Sender: TObject);
begin
shellexecute(application.handle,'open','rundll32.exe',
pchar('diskcopy,DiskCopyRunDll'),nil,sw_shownormal);
end;