выдает ошибку в очень глупом месте помогите пожалуйста

[durexa]

unit shablon;
interface
uses windows, messages, sysutils;
{$R *.RES}
procedure DoExit;
function WindowProc (Hwn,Msg,wpr,lpr:longint): longint; stdcall;
var
instance: HWnd;
WinwowClass: TWndClass;
Handle:HWnd;
Msg:Tmsg;
procedure DoExit; вот здесь ошибка
begin
Halt;
end;
function WindowProc (Hwn,Msg,wpr,lpr:longint): longint; stdcall;
begin
result:=defwindowproc(hvn,msg,wpr,l pr);
if msg=wm_destroy then doExit;
if msg=wm_Key_down then //ïðîâåðÿåò íàæàòà ëè êíîïêà
if msg=VK_escape then do exit; //åñëè íàæàòà òî íå Escape ëè ýòî
end;

[Jeni]

Нужно перед строкой procedure DoExit; указать ключевое слово implementation, а то раздел объявлений и раздел реализации никак не разделены и компилятор не может понять где начинаются сами процедуры/функции.

P.S. Может для завершения лучше использовать Application.Terminate, а не Halt?

[durexa]

угу точно большое спасибо