Smallest System.pas and SysInit.pas - Windows XP, Vista & 7

unit System; 

interface

procedure _Halt0;

procedure _HandleFinally; 

type

  TGUID = record

    D1: LongWord;

    D2: Word;

    D3: Word;

    D4: array [0..7] of Byte;

  end;

var

  ExitCode: Integer = 0; 

procedure ExitProcess(ExitCode: Integer); stdcall; external 'kernel32.dll' name 'ExitProcess';

implementation

procedure _Halt0;

begin

  ExitProcess(ExitCode);

end;

procedure _HandleFinally;

asm

end;

end.

unit SysInit;

interface

procedure _InitExe(InitTable: Pointer);

var

  TlsIndex: Integer = -1;   

  TlsLast: Byte;    

const

  PtrToNil: Pointer = nil;

implementation

procedure _InitExe(InitTable: Pointer);

begin

end;

end.