ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
const diameter = 40; // диаметр шаров
var i,n, // кол-во шаров
b:integer; // переменная для лучшего центрования надписи
a:string[2];

begin
  n := StrToInt(Edit1.Text);
  // настраиваем brush и pen
  form2.Canvas.Brush.Color:=clWhite;
  form2.Canvas.Pen.Color := clBlack;
  randomize;
  form2.Show;
  for i := 1 to n do
  begin
    form2.Canvas.Ellipse((i-1)*(diameter+5),0,(i-1)*(diameter+5)+diameter,diameter); // рисуем круги на расстоянии 5 пикселов друг от друга; в одну строку
    a:=inttostr(random(25));
    if length(a) = 2 then b:=12
    else b:=5;
    form2.Canvas.TextOut(diameter div 2 + (i-1)*(diameter+5) - b div 2, diameter div 2 - 4, a); // пишем на шаре надпись
  end;
end;