Меню "пуск" на Паскале

uses
  graphabc, abcbuttons, abcobjects;
 
procedure menue; forward;
 
procedure tilda;
begin
  clearwindow;
  menue;
end;
 
procedure tick;
begin
  var p := new RoundRectabc(1, 230, 220, 200, 15, clwhite);
  var proga := new ButtonABC(10, 250, 200, 40, 'Прога1', clwhite);
  proga.OnClick := tilda;
  var proga1 := new ButtonABC(10, 290, 200, 40, 'Прога2', clwhite);
  //kopka.OnClick:= ;
  var proga2 := new ButtonABC(10, 330, 200, 40, 'Прога3', clwhite);
  //kopka1.OnClick:= ;
  var proga3 := new ButtonABC(10, 370, 200, 40, 'Прога3', clwhite);
  //kopka2.OnClick:= ;
end;
 
 
procedure menue;
begin
  window.Title := 'Менюшка';
  var p := new RoundRectABC(1, 450, 640, 23, 5, clwhite);
  var pusk := new ButtonABC(1, 450, 45, 23, 'Пуск', clskyblue);
  pusk.OnClick := tick;
  var kopka := new ButtonABC(90, 439, 30, 41, 'E', clwhite);
  //kopka.OnClick:= ;
  var kopka1 := new ButtonABC(180, 439, 30, 41, 'X', clwhite);
  //kopka1.OnClick:= ;
  var kopka2 := new ButtonABC(270, 439, 30, 41, 'P', clwhite);
  //kopka2.OnClick:= ;
  var kopka3 := new ButtonABC(360, 439, 30, 41, 'E', clwhite);
  //kopka3.OnClick:= ;
  var kopka4 := new ButtonABC(450, 439, 30, 41, 'R', clwhite);
  //kopka4.OnClick:= ;
  var kopka5 := new ButtonABC(540, 439, 30, 41, 'T', clwhite);
  //kopka5.OnClick:= ;
end;
 
 
 
begin
  menue;
end.