Pues ya quedo , les comparto como quedo por si a alguien le sirve que para esto es este foro que me ha ayudado bastante.
Código Delphi
[-]
procedure TForm1.RzBitBtn1Click(Sender: TObject);
function CopiaTodo(Origen,Destino : String) :
LongInt;
var
F : TShFileOpStruct;
sOrigen, sDestino : String;
begin
Result := 0;
sOrigen := Origen + #0;
sDestino := Destino + #0;
with F do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @sOrigen[1];
pTo := @sDestino[1];
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
end;
Result := ShFileOperation(F);
end;
begin
if TblAgentescidempresa.Value=2 then
begin
CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10008.dbf','C:\pro-system');
CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10008.fpt','C:\pro-system');
CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10005.dbf','C:\pro-system');
CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10005.fpt','C:\pro-system');
CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10010.dbf','C:\pro-system');
CopiaTodo('\\NOMINAT\Empresas\RUFI MARCH SC\MGW10010.fpt','C:\pro-system');
end
y asi repito el codigo 25 veces ya que son 25 empresas en el menu..
un saludo a todos...