Вступительный экзамен

Program KP;
 uses VCL {,graphabc}; 
 var 
 MainForm: Form; 
 Bsum,Braz,Bpr,Bdel,Bres,Bclean: Button; 
 T1:TextBox;  в этой строке
 operation, rint:integer;
 x1, x2, rr:real;
 procedure BsumClick;
begin
    x1:=strtoint(T1.caption);
    T1.caption:='';
    operation:=1;
end;
 procedure BrazClick;
begin
    xl:=strtoint(Tl.caption);
    T1.caption:='';
    operation:=2;
end;
 procedure BprClick;
begin
    xl:=strtoint(Tl.caption);
    Tl.caption:='';
    operation:=3;
end;
 procedure BdelClick;
begin
    xl:=strtoint(Tl.caption);
    Tl.caption:='';
    operation:=4;
end; 
 procedure BresClick;
begin
    x2:=strtoint(T1.caption);
    case operation of
    1   : rr:=xl+x2;
    2   : rr:=xl-x2;
    3   : rr:=xl*x2;
    4   : rr:=xl/x2;
    end;
    rint:=round(rr);
    T1.caption:=inttostr(rint); 
end;
 procedure BcleanClick;
begin
    Tl.Caption:='';
end;
begin
    MainForm:=Form.Create(400,300,280,300) ;
    MainForm.Caption:='Калькулятор';
    Tl:=TextBox.Create(30,25,200,25);
    
    Bsum:=Button.Create(30,60,40,40);
    Bsum.Caption:='+';
    
    Braz:=Button.Create(80,60,40,40);
    Braz.Caption:='—';
    
    Bpr:=Button.Create(130,60,40,40);
    Bpr.Caption:='*';
    
    Bdel:=Button.Create(180,60,40,40);
    Bdel.Caption:='/';
    
    Bres:=Button.Create(30,200,100,40);
    Bres.Caption:='=';
    
    Bclean:=Button.Create(150,200,100,40) ;
    Bclean.Caption:='Очистить';
    
    Bsum.OnClick:=BsumClick;
    Braz.OnClick:=BrazClick;
    Bpr.OnClick:=BprClick;
    Bdel.OnClick:=BdelClick;
    Bres.OnClick:=BresClick;
    Bclean.OnClick:=BcleanClick;
end.