Bueno pues lo dicho...Mire un poquito y ya tengo el código
Código Delphi
[-]
procedure Copia( source : string; dest : string);
var
attr : integer;
begin
if FileExists(source) then
begin
if CopyFile(PChar(source), PChar(dest),true) then
begin
attr := FileGetAttr(dest);
if (attr and faHidden) <> 0 then
FileSetAttr(dest, attr - faHidden);
end;
end;
Un saludo y gracias.