Procedure Tform1.copyFile(sFile,put:string);
Var filecontent:Tstringlist;
Begin
filecontent := Tstringlist.Create;
With filecontent Do
Begin
LoadFromFile(sFile);
saveToFile(put);
End;
End;