GlobalMemoryStatus(m);
m.dwTotalPhys;

type
//Во Free Pascal типы Int64 и QWord не являются порядковыми, нельзя использовать их, например, для индексных переменных в циклах
UInt64 = QWord;//вроде бы не существует в Делфи
UInt32 = LongWord;

//  PMemoryStatusEx = ^MemoryStatusEx;
 MemoryStatusEx = packed record
   Length: UInt32;
   MemoryLoad: UInt32;
   TotalPhys: UInt64;
   AvailPhys: UInt64;
   TotalPageFile: UInt64;
   AvailPageFile: UInt64;
   TotalVirtual: UInt64;
   AvailVirtual: UInt64;
   AvailExtendedVirtual: UInt64;
 end;

function GlobalMemoryStatusEx(var Buffer: MemoryStatusEx): Boolean; stdcall;{cdecl;} external kernel32 name 'GlobalMemoryStatusEx';

var
 j: Double;
 m: MemoryStatusEx;
begin
 FillChar(m, SizeOf(MemoryStatusEx), 0);
 m.Length := SizeOf(MemoryStatusEx);
 GlobalMemoryStatusEx(m);

 j := m.TotalPhys/1024/1024/1024;//показывет все 16 гигов

program bm;
{$IFDEF FPC}{$MODE DELPHI}{$H+}{$APPTYPE GUI}{$ENDIF}
{$DEFINE UNICODE_CTRLS}
{$DEFINE PAS_ONLY}
{$DEFINE PUREPASCAL}
{$DEFINE NOT_USE_RICHEDIT}
uses
 Kol, bm1 in 'bm1.pas';
begin
 NewForm1( Form1, nil);
 Run(Form1.form);
end.

unit bm1;

interface
uses
 Windows, Messages, Kol;
const
cps:KolString = 'Kol project in ' + {$IFDEF FPC}'Freepascal '{$ELSE}'Delphi '{$ENDIF} +
   {$IFDEF WIN64}'64 bits '{$ELSE}'32 bits '{$ENDIF} +
   {$IFDEF UNICODE_CTRLS}'Unicode'{$ELSE}'Ansi'{$ENDIF};
type

PForm1=^TForm1;
TForm1=object(Tobj)
 Form:pControl;
 BM:PBitmap;
 Menu:PMenu;
public
 procedure DoMenu(sender:PMenu;Index:Integer);
 procedure DoPaint(sender:PControl;DC:HDC);
end;

procedure NewForm1( var Result: PForm1; AParent: PControl );

var
 Form1:pForm1;

implementation

procedure NewForm1( var Result: PForm1; AParent: PControl );
begin
 New(Result,Create);
 with Result^ do
 begin
   Form:= NewForm(AParent,cps);
   Applet:=Form;
   Form.Add2AutoFree(Result);
   Menu := NewMenu(Form,0,['&File','(','&Open','-','E&xit',')'],DoMenu);
   BM := NewBitmap(0,0);
   Form.Add2AutoFree(BM);
   Form.OnPaint := DoPaint;
 end;
end;

{ TForm1 }

procedure TForm1.DoMenu(sender: PMenu; Index: Integer);
begin
case index of
1: with NewOpenSaveDialog('Open Bitmap','',[OSFileMustExist])^ do
   try
     Form.BeginUpdate;
     Filter := 'Bitmap files|*.bmp';
     if execute then
     begin
       BM.Clear;
       BM.LoadFromFile(Filename);
     end;
   finally
     free;
     Form.EndUpdate;
     Form.Invalidate;
   end;
3: Applet.Close;
else
;
end;
end;

procedure TForm1.DoPaint(sender: PControl; DC: HDC);
begin
 BM.Draw(DC,0,0);
end;

end.