Задача по формам Pascal ABC

{$reference System.Windows.Forms.dll} 
uses System.Windows.Forms; 
 
var
  f: Form;
  lb:&Label;
  btn:Button;
  txt1,txt2,txt3,txt4:TextBox;
  n:integer;
function FromDec(n,p:integer):string;
const cf:string[16]='0123456789ABCDEF';
begin
result:='';
while n>0 do
 begin
  result:=cf[n mod p+1]+result;
  n:=n div p;
 end;
end;
procedure btn_Click(Sender: Object; Args: System.EventArgs);
begin
 n:=strtoint(txt1.Text);
 txt2.Text:='В СС 2='+FromDec(n,2);
 txt3.Text:='В СС 8='+FromDec(n,8);
 txt4.Text:='В СС 16='+FromDec(n,16);
end;  
begin
  f := new Form();
  lb:=new &Label;
  lb.Top:=10;
  lb.Left:=30;
  lb.Width:=200;
  lb.Height:=50;
  lb.Text:='Введите число в СС 10';
  txt1:=new TextBox;
  txt1.Top:=30;
  txt1.Left:=30;
  txt1.Width:=150;
  txt1.Height:=50;
  txt2:=new TextBox;
  txt2.Top:=80;
  txt2.Left:=30;
  txt2.Width:=150;
  txt2.Height:=50;
  txt3:=new TextBox;
  txt3.Top:=130;
  txt3.Left:=30;
  txt3.Width:=150;
  txt3.Height:=50;
  txt4:=new TextBox;
  txt4.Top:=180;
  txt4.Left:=30;
  txt4.Width:=150;
  txt4.Height:=50;
  btn:=new Button;
  btn.Top:=210;
  btn.Left:=50;
  btn.Width:=100;
  btn.Height:=50;
  btn.Text:='Выполнить';
  btn.Click+=btn_Click;
  f.Controls.Add(txt1);
  f.Controls.Add(txt2);
  f.Controls.Add(txt3);
  f.Controls.Add(txt4);
  f.Controls.Add(btn);
  f.Controls.Add(lb);
   
  Application.Run(f); 
 
  
end.