Как побайтно считать файл и записать в другой

[SeRhy]

Подскажите пожалуйста как побайтно считать файл и записать в другой файл.
Зарание спасибо

[Artificial]

BlockRead(f1,buffer,count);
BlockWrite(f2,buffer,count);

[N!ckeL]

Я так делал:

var
 f, f1:TFileStream;
 b:byte;
 i:integer;
begin
 f:=TFileStream.Create('OLD.exe', fmOpenRead);
 f1:=TFileStream.Create('NEW.exe', fmCreate);
  for i:=0 to f.Seek(0, SoFromEnd) do
   begin
     f.Seek(i, soFromBeginning);
     f.Read(b, sizeOf(b));
     f1.Seek(i, soFromBeginning);
     f1.Write(b, sizeOf(b));
   end;
 f1.Free;
 f.Free;
end;