hat, sok otletem nincs.
kiprobaltam ezt:

procedure FileCopy(const FromFile, ToFile: string);
var
FromF, ToF: file;
NumRead, NumWritten: integer;
Buf: array[1..102400] of Char;
begin
AssignFile(FromF, FromFile);
Reset(FromF, 1); { Record size = 1 }
AssignFile(ToF, ToFile); { Open output file }
Rewrite(ToF, 1); { Record size = 1 }
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
CloseFile(FromF);
CloseFile(ToF);
end;

ez speciel egy file copy de talan ad neked otletet, buffer size-t lehet allitani az elejen. a legnagyobb fileom egy 700 megas film volt amit hirtelen talaltam, eleg szepen es gyorsan csinalta... na remelem mas okosabb lesz mint en