risoltoanche questo ecco il codice:

procedure TForm1.Button1Click(Sender: TObject);
var
fileOp: TShFileOpStruct;
fromDir: string;
toDir: string;
begin
fromDir := 'c:\*.mdb*';
toDir := '\\192.168.50.33\c\audio\';


with fileOp do begin
wnd := Handle;
wfunc := FO_COPY;
pFrom := PChar(fromDir);
pTo := PChar(toDir);
fFlags := FOF_ALLOWUNDO;
fAnyOperationsAborted := false;
hNameMappings := nil;
lpszProgressTitle := nil;
end;


SHFileOperation(fileOp);
end;

ciaooooooo!