Pascal İlk pencere

Merhaba BDA Takipcileri Sizler ile pascal da windows penceresinin kodlarını paylaşmak istedim.
Kodlar:
program ilk_Pencerem;

uses
Strings,Windows;
//Pencere Başlığımız
const
AppName = ?İlk_Pencerem?;

function WindowProc(Window: HWnd; AMessage, WParam,
LParam: Longint): Longint; stdcall; export;

var
dc : hdc;
ps : paintstruct;
r : rect;
begin
WindowProc :=0;
//Penceremizdeki Olaylar
case AMessage of
wm_paint:
begin
dc:=BeginPaint(Window,@ps);
GetClientRect(Window,@r);
DrawText(dc,?İlk Pencerem?,-1,@r,
DT_SINGLELINE or DT_CENTER or DT_VCENTER);
EndPaint(Window,ps);
Exit;
end;
wm_Destroy:
begin
PostQuitMessage(0);
Exit;
end;
end;

WindowProc := DefWindowProc(Window, AMessage, WParam, LParam);
end;
//Aşşağıdaki Olan Kısım Pencere Özelliklerimiz
function WinRegister: Boolean;
var
WindowClass: WndClass;
begin
WindowClass.Style := cs_hRedraw or cs_vRedraw;
WindowClass.lpfnWndProc := WndProc(@WindowProc);
WindowClass.cbClsExtra := 0;
WindowClass.cbWndExtra := 0;
WindowClass.hInstance := system.MainInstance;
WindowClass.hIcon := LoadIcon(0,idi_Application);
WindowClass.hCursor := LoadCursor(0,idc_Arrow);
WindowClass.hbrBackground := GetStockObject(WHITE_BRUSH);
WindowClass.lpszMenuName := nil;
WindowClass.lpszClassName := AppName;

Result := RegisterClass(WindowClass) <> 0;
end;

function WinCreate: HWnd;
var
hWindow: HWnd;
//Burada Pencereyi Yaratıyoruz ve Başlığını Veriyoruz
begin
hWindow := CreateWindow(AppName, ?İlk Pencerem?,
ws_OverlappedWindow, cw_UseDefault, cw_UseDefault,
cw_UseDefault, cw_UseDefault, 0, 0, system.MainInstance, nil);
if hWindow <> 0 then begin
ShowWindow(hWindow, CmdShow);
UpdateWindow(hWindow);
end;

Result := hWindow;

end;

var
AMessage: Msg;
hWindow: HWnd;

//Eğer Penceremiz Bir Hataya Rastlarsa
begin
if not WinRegister then begin
MessageBox(0,?Pencere Kaydedilemedi?,nil,mb_Ok);
Exit;
end;
hWindow := WinCreate;
if longint(hWindow) = 0 then begin
MessageBox(0,?Pencere Oluşturulurken Hata !?,nil,mb_Ok);
Exit;
end;
// Penceremizin Kapanmaması İçin Döngüye Sokuyoruz
while GetMessage(@AMessage,0,0,0) do begin
TranslateMessage(AMessage);
DispatchMessage(AMessage);
end;
Halt(AMessage.wParam);
end.
//Biter

Faydalı Olması Dilegiyle.