Проблема в PascalABC
от Ярослав Андреев - Воскресенье 3 Декабрь 2017, 08:01
  Мне почему то выдает странные сообщения и кнопка большего размера помогите пожалуйста вот код:
Uses GraphABC,ABCButtons;
Var
  b1,b2: buttonABC;
  i: longint;
Procedure LocalniiDiskC();
Begin
  ClearWindow;
  FloodFill(0,0,clLavender);
  Pen.Width:=30;
  Pen.Color:=clLightGray;
  Rectangle(0,0,1920,1080);
  Readln();
End; 
Procedure Computer();
Begin
  ClearWindow;
  FloodFill(0,0,clLavender);
  Pen.Width:=30;
  Pen.Color:=clLightGray;
  Rectangle(0,0,1920,1080);
  Pen.Width:=1;
  b2:= new ButtonABC(300,400,400,420,'Локальный диск C',clGray);
  b2.OnClick:=LocalniiDiskC;
  Readln();
End;
Begin   
              Arc(230,180,90,40,140);
              Arc(160,170,50,90,150);
              Arc(120,190,50,90,150);
              Arc(120,190,50,210,270);
              Arc(120,190,50,90,270);
              Arc(160,210,50,210,270);
              Arc(230,200,90,220,320);
              Arc(290,210,50,270,330);
              Arc(330,190,50,0,90);
              Arc(330,190,50,270,270);
              Arc(330,190,50,270,360);
              Arc(290,170,50,30,90);
              Line(0,660,1920,660);
              Arc(730,280,90,40,140);
              Arc(660,270,50,90,150);
              Arc(620,290,50,90,150);
              Arc(620,290,50,210,270);
              Arc(620,290,50,90,270);
              Arc(660,310,50,210,270);
              Arc(730,300,90,220,320);
              Arc(790,310,50,270,330);
              Arc(830,290,50,0,90);
              Arc(830,290,50,270,270);
              Arc(830,290,50,270,360);
              Arc(790,270,50,30,90);             
              Arc(1230,90,90,40,140);
              Arc(1160,80,50,90,150);
              Arc(1120,100,50,90,150);
              Arc(1120,100,50,210,270);
              Arc(1120,100,50,90,270);
              Arc(1160,120,50,210,270);
              Arc(1230,110,90,220,320);
              Arc(1290,120,50,270,330);
              Arc(1330,100,50,0,90);
              Arc(1330,100,50,270,270);
              Arc(1330,100,50,270,360);
              Arc(1290,80,50,30,90);
              Ellipse(600,200,650,220);
              Line(600,205,590,207);
              Line(600,210,590,207);
              Circle(606,206,2);
              Line(650,207,660,200);
              Line(650,207,660,201);
              Line(650,207,660,202);
              Line(650,207,660,203);
              Line(650,207,660,204);
              Line(650,207,660,205);
              Line(650,207,660,206);
              Line(650,207,660,207);
              Line(650,207,660,208);
              Line(650,207,660,209);
              Line(650,207,660,210);
              Line(620,220,620,230);
              Line(640,220,640,230);
              Line(620,230,610,230);
              Line(640,230,630,230);
              FloodFill(610,210,clBrown);
              FloodFill(606,206,clBlack);
              FloodFill(598,207,clYellow);
              FloodFill(1000,1000,clGreen);
              Brush.Color:=clBrown;
              Ellipse(615,215,665,220);
              Ellipse(615,212,662,217);
              Ellipse(615,209,659,214);
              Ellipse(615,206,656,211);
              FloodFill(655,200,clDeepSkyBlue);
              FloodFill(0,0,clDeepSkyBlue);
              Circle(1800,150,100);
              FloodFill(1810,160,clYellow);           
              For i:=1 to 1200 do
              Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,1000,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,1000,40,80,190);
                  End; 
              End;     
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,980,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,980,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,960,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,960,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,940,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,940,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,940,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,940,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,920,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,920,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,900,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,900,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,880,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,880,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,860,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,860,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
              Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,840,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,840,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,820,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,820,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,800,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,800,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,780,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,780,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,760,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,760,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,740,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,740,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,720,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,720,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
              Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,700,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,700,40,80,190);
                  End;
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,840,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,860,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,880,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,900,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,920,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,940,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,960,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,980,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,1000,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,840,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,860,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,880,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,900,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,920,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,940,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,960,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,980,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,1000,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,840,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,860,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,880,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,900,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,920,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,940,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,960,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,980,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,1000,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,840,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,860,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,880,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,900,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,920,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,940,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,960,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,980,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,1000,40,80,190);
              End;
              Pen.Color:=clBlack;
              Arc(230,180,90,40,140);
              Arc(160,170,50,90,150);
              Arc(120,190,50,90,150);
              Arc(120,190,50,210,270);
              Arc(120,190,50,90,270);
              Arc(160,210,50,210,270);
              Arc(230,200,90,220,320);
              Arc(290,210,50,270,330);
              Arc(330,190,50,0,90);
              Arc(330,190,50,270,270);
              Arc(330,190,50,270,360);
              Arc(290,170,50,30,90);
              Brush.Color:=clDimGray;
              Rectangle(50,20,150,80);
              b1:= new ButtonABC(60,30,80,40,'',clLightCyan);
              b1.OnClick:=Computer;
              Line(50,20,60,10);
              Line(150,20,160,10);
              Line(60,10,160,10);
              FloodFill(100,11,clDimGray);
              Line(150,80,160,70);
              Line(160,10,160,70);
              FloodFill(155,65,clDimGray);
              Arc(70,100,25,320,420);
              Arc(130,100,25,125,220);
              Line(89,117,112,117);
              FloodFill(100,110,clDimGray);
              Ellipse(60,100,140,130);
              FloodFill(100,110,clDimGray);
              SetFontSize(10);
              TextOut(45,140,'Мой Компьютер');
              Pen.Color:=clGray;
              Circle(50,1030,25)
End.Uses GraphABC,ABCButtons;
Var
  b1,b2: buttonABC;
  i: longint;
Procedure LocalniiDiskC();
Begin
  ClearWindow;
  FloodFill(0,0,clLavender);
  Pen.Width:=30;
  Pen.Color:=clLightGray;
  Rectangle(0,0,1920,1080);
  Readln();
End; 
Procedure Computer();
Begin
  ClearWindow;
  FloodFill(0,0,clLavender);
  Pen.Width:=30;
  Pen.Color:=clLightGray;
  Rectangle(0,0,1920,1080);
  Pen.Width:=1;
  b2:= new ButtonABC(300,400,400,420,'Локальный диск C',clGray);
  b2.OnClick:=LocalniiDiskC;
  Readln();
End;
Begin   
              Arc(230,180,90,40,140);
              Arc(160,170,50,90,150);
              Arc(120,190,50,90,150);
              Arc(120,190,50,210,270);
              Arc(120,190,50,90,270);
              Arc(160,210,50,210,270);
              Arc(230,200,90,220,320);
              Arc(290,210,50,270,330);
              Arc(330,190,50,0,90);
              Arc(330,190,50,270,270);
              Arc(330,190,50,270,360);
              Arc(290,170,50,30,90);
              Line(0,660,1920,660);
              Arc(730,280,90,40,140);
              Arc(660,270,50,90,150);
              Arc(620,290,50,90,150);
              Arc(620,290,50,210,270);
              Arc(620,290,50,90,270);
              Arc(660,310,50,210,270);
              Arc(730,300,90,220,320);
              Arc(790,310,50,270,330);
              Arc(830,290,50,0,90);
              Arc(830,290,50,270,270);
              Arc(830,290,50,270,360);
              Arc(790,270,50,30,90);             
              Arc(1230,90,90,40,140);
              Arc(1160,80,50,90,150);
              Arc(1120,100,50,90,150);
              Arc(1120,100,50,210,270);
              Arc(1120,100,50,90,270);
              Arc(1160,120,50,210,270);
              Arc(1230,110,90,220,320);
              Arc(1290,120,50,270,330);
              Arc(1330,100,50,0,90);
              Arc(1330,100,50,270,270);
              Arc(1330,100,50,270,360);
              Arc(1290,80,50,30,90);
              Ellipse(600,200,650,220);
              Line(600,205,590,207);
              Line(600,210,590,207);
              Circle(606,206,2);
              Line(650,207,660,200);
              Line(650,207,660,201);
              Line(650,207,660,202);
              Line(650,207,660,203);
              Line(650,207,660,204);
              Line(650,207,660,205);
              Line(650,207,660,206);
              Line(650,207,660,207);
              Line(650,207,660,208);
              Line(650,207,660,209);
              Line(650,207,660,210);
              Line(620,220,620,230);
              Line(640,220,640,230);
              Line(620,230,610,230);
              Line(640,230,630,230);
              FloodFill(610,210,clBrown);
              FloodFill(606,206,clBlack);
              FloodFill(598,207,clYellow);
              FloodFill(1000,1000,clGreen);
              Brush.Color:=clBrown;
              Ellipse(615,215,665,220);
              Ellipse(615,212,662,217);
              Ellipse(615,209,659,214);
              Ellipse(615,206,656,211);
              FloodFill(655,200,clDeepSkyBlue);
              FloodFill(0,0,clDeepSkyBlue);
              Circle(1800,150,100);
              FloodFill(1810,160,clYellow);           
              For i:=1 to 1200 do
              Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,1000,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,1000,40,80,190);
                  End; 
              End;     
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,980,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,980,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,960,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,960,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,940,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,940,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,940,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,940,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,920,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,920,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,900,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,900,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,880,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,880,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,860,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,860,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
              Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,840,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,840,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,820,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,820,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,800,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,800,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,780,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,780,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,760,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,760,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,740,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,740,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
                Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,720,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,720,40,80,190);
                  End; 
              End;
              For i:=0 to 1200 do             
              Begin
                  if Odd(i) then
                  Begin
                    Brush.Color:=clGoldenrod;
                    Pen.Color:=clGoldenrod;
                    Arc(10+i*2,700,40,80,190);
                  End 
                  Else
                  Begin
                    Brush.Color:=clYellowGreen;
                    Pen.Color:=clYellowGreen;
                    Arc(10+i*2,700,40,80,190);
                  End;
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,840,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,860,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,880,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,900,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,920,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,940,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,960,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,980,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clKhaki;
                  Pen.Color:=clKhaki;
                  Arc(10+i*6,1000,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,840,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,860,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,880,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,900,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,920,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,940,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,960,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,980,40,80,190);
              End;
                              For i:=0 to 400 do
              Begin
                  Brush.Color:=clGold;
                  Pen.Color:=clGold;
                  Arc(10+i*8,1000,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,840,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,860,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,880,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,900,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,920,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,940,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,960,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,980,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clOrange;
                  Pen.Color:=clOrange;
                  Arc(10+i*10,1000,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,700,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,720,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,740,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,760,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,780,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,800,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,820,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,840,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,860,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,880,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,900,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,920,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,940,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,960,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,980,40,80,190);
              End;
              For i:=0 to 400 do
              Begin
                  Brush.Color:=clDarkOrange;
                  Pen.Color:=clDarkOrange;
                  Arc(10+i*12,1000,40,80,190);
              End;
              Pen.Color:=clBlack;
              Arc(230,180,90,40,140);
              Arc(160,170,50,90,150);
              Arc(120,190,50,90,150);
              Arc(120,190,50,210,270);
              Arc(120,190,50,90,270);
              Arc(160,210,50,210,270);
              Arc(230,200,90,220,320);
              Arc(290,210,50,270,330);
              Arc(330,190,50,0,90);
              Arc(330,190,50,270,270);
              Arc(330,190,50,270,360);
              Arc(290,170,50,30,90);
              Brush.Color:=clDimGray;
              Rectangle(50,20,150,80);
              b1:= new ButtonABC(60,30,80,40,'',clLightCyan);
              b1.OnClick:=Computer;
              Line(50,20,60,10);
              Line(150,20,160,10);
              Line(60,10,160,10);
              FloodFill(100,11,clDimGray);
              Line(150,80,160,70);
              Line(160,10,160,70);
              FloodFill(155,65,clDimGray);
              Arc(70,100,25,320,420);
              Arc(130,100,25,125,220);
              Line(89,117,112,117);
              FloodFill(100,110,clDimGray);
              Ellipse(60,100,140,130);
              FloodFill(100,110,clDimGray);
              SetFontSize(10);
              TextOut(45,140,'Мой Компьютер');
              Pen.Color:=clGray;
              Circle(50,1030,25)
End.