Add(Button,2600237,133,168)
{
 Left=20
 Top=20
 Caption="2"
 Data=String(ÔÔÔ)
 link(onClick,8954093:doWork1,[(200,174)])
}
Add(Memory,12744181,231,217)
{
}
Add(Button,15280527,133,217)
{
 Left=20
 Top=20
 Caption="2"
 Data=String(ÔÔÔ)
 link(onClick,8954093:doWork2,[])
}
Add(Button,14010558,133,266)
{
 Left=20
 Top=20
 Caption="2"
 Data=String(ÔÔÔ)
 link(onClick,8954093:doWork3,[(200,272)])
}
Add(HubEx,8954093,196,210)
{
 link(onEvent,12744181:doValue,[])
}
Add(Button,10262314,133,315)
{
 Left=130
 Top=325
 link(onClick,8688004:doFor,[])
}
Add(Math,5513068,231,315)
{
 Op2=1
 link(Op1,12744181:Value,[])
}
Add(For,8688004,182,315)
{
 End=10000
 link(onEvent,5513068:doOperation,[])
}

Program Project;

uses Vesa,System, Bios;

var i,j,p:word;
    color:TColor;

begin
   if i > j then
    begin
      p := i + j
    end;
   for i := 0 to 640-1 do
    for j := 0 to 480-1 do
      p := i + j;
   readkey
end.

.data

  i dw 0
  j dw 0
  p dw 0
.code
start:
 ;   if i > j then
  xor ebx,ebx
  mov bx,[j]
  cmp [i],bx
  jle @@if0

 ;      p := i + j
  xor ebx,ebx
  mov bx,[i]
  add bx,[j]
  mov [p],bx

@@if0:
 ;   for i := 0 to 640-1 do
  mov [i],0
@@for0:
  cmp [i],639
  jg @@for1

 ;    for j := 0 to 480-1 do
  mov [j],0
@@for2:
  cmp [j],479
  jg @@for3

 ;      p := i + j;
  xor ebx,ebx
  mov bx,[i]
  add bx,[j]
  mov [p],bx

  inc [j]
  jmp @@for2
@@for3:
  inc [i]
  jmp @@for0
@@for1:
 ;   readkey
  sub esp,1
  mov ebx,esp
  push ebx
  call @@readkey
  add esp,1

end start

;--------------------------------
@@readkey proc near
  push ebp
  mov ebp,esp

  mov ah,0h
  int 16h
  mov ebx,[dword ptr ebp + 6]
  mov [ byte ptr ebx ],al

  pop ebp
  ret 4
endp @@readkey

;--------------------------------
end

{      MINI Boot Loader
  Минимальный загрузчик для 2х физических 
  дисков. Он грузит НЕ ОС!, а всего лишь их
  стандартные загрузчики, записанные в MBR
  винчестера.
  В программу не включены никакие проверки
  ввода, поскольку 512 байт для такой роскоши
  мало и пришлось бы делать 2х этапный
  загрузчик.
}
program Hello;
{стандартное начало для Boot загрузчика}
{$ boot }
uses 
    System,bios; 
var b:byte;
begin
   {инициализируем сегмент данных}
   initds
   {переменная b отлична от 0 при повторном
    вызове программы( ниже по тексту )}
   if b
     {подробнее о загрузке см. Помощь -> Загрузка }
     bootfromdisk(b-1)
   else
    begin
     clrscr
     gotoxy(10,10)
     writecstring("Demon Boot Loader:",clgreen)
     {убрал, т.к. включение ещё какого либо
      сделает размер загрузчика больше, чем
      512 байт!}

     {gotoxy(5,10)}
     writecstring("1 - LILO ",clgray)
     {gotoxy(5,11)}
     writecstring("2 - Windows XP",clgray)
     b := ReadKey - '0';
     {грузим свою копию в новое место}
     absread($1000,$7c00,1,1)
     __ax := $1000
     __es := __ax
     {говорим ей, что пора грузить ОС}
     asm
       mov al,[cs:b]
       mov [es:b],al
     end
     CallFarProc($1000,$7c00);
    end    
end.

  TP_PControl := RegisterUserType('PControl');[/code]
в качестве результата возвращается data_object + offset

объявление переменной пользовательского типа в среде:
lang(frm:PControl)[/code]

проверка типа перенной на соответствие данному типу:
    if(expof(cnt) != PControl)
      error('В качестве Control указан не верный тип данных')
    end

[size=-2]------ Добавлено в 16:36 [/size]
полагаю для FTCG пакетов имеет смысл сделать возможность подцветки ошибочных линков прямо в среде после компиляции.