Esta sería la traducción a pascal de la propuesta de doverzhoff, como verás si conoces Pascal fácilmente puedes trabajar en delphi, y es mas... ¡Este código compila en Delphi!
Código:
var
F : Text;
F2 : Text;
Aux : String;
begin
Assign(F, 'c:\Archivo1.xxx');
Assign(F2, 'c:\Archivo2.xxx');
Reset(F);
Rewrite(F2);
ReadLn(F, Aux);
WriteLn(F2, Aux);
Close(F);
Close(F2);
end.