[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

var
  FInputFile, FOutputFile: THandle;
  Dummy: DWORD;
  Buffer: array [0..$ffff] of Byte;
begin
  FInputFile:=CreateFile('Project1.dpr', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  FOutputFile:=CreateFile('Project1.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
  SetFilePointer(FInputFile, 8, nil, FILE_BEGIN);
  while ReadFile(FInputFile, Buffer, Length(Buffer), Dummy, nil) do
    if Dummy>0 then WriteFile(FOutputFile, Buffer, Dummy, Dummy, nil) else Break;
  CloseHandle(FOutputFile);
  CloseHandle(FInputFile);
end.