Function Sterta(X : Word) : Integer; Far;
Begin
Sterta:=1;
End;

Var
Wsk : ^Integer;

Begin
...
HeapError:=@Sterta;
...
New(Wsk);
If Wsk=Nil Then
Begin
obsługa błędu
End;
...
End.

CZY KTOŚ JARZY CO TO JE I MOŻE MI TO WYTŁUMACZYĆ??????? CO TO JE HEAPERROR?? I CO JEST ARGUMENTEM TEJ FUNKCJI??( SEGMENT PAMIĘCI???)...........PO CO TO FAR??? SŁOWEM.......O CO TU BIEGA???