Как в делфи нарисовать множество точек?

canvas.Pixels[x,y]:=clRed;

function .....():.....
var x,y: Integer;
     i: byte;
begin
     for i:=1 to 10 do
     begin
        .............................
        .............................
        {здесь получаем координаты с клавиатуры
          или рандомно генерим или из файла считываем
          и потом сохраняем их в x и y и затем....}
         canvas.Pixels[x,y]:=clRed;    //...ставим точку на нужные координаты.
     end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y,i:integer;
begin
 for i:=2 to 11 do
  begin
   x:=strtoint(stringgrid1.Cells[2,i]);
   y:=strtoint(stringgrid1.Cells[3,i]);
   form1.canvas.Pixels[x+10,y+10];
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
  for i:=1 to 10 do
  begin
   x:=strtoint(stringgrid1.Cells[1,i]);
   y:=strtoint(stringgrid1.Cells[2,i]);
   form1.canvas.Pixels[x+10,y+10]:=clRed;;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,x,y: integer;
     f: textfile;
begin
 AssignFile(f,'file.txt'); //инициализируем файл
 reset(f);                  //открываем его на чтение
 for i:=1 to 10 do
 begin
  read(f,x,y);            //считываем очередную пару
  canvas.Pixels[x,y]:=clRed;   //и рисуем точку
 end;
 closefile(f);              //закрываем файл
end;

AssignFile(f,'C:\Program Files\file.txt');

read(f,x,y,z);
read(f,x,y,z,s);

 type TPoint = packed record
   X: Longint;
   Y: Longint;
end;

StringGrid1.Cells[i,0]:='надпись';

procedure TForm1.Button1Click(Sender: TObject);
var x,y,i:integer;
begin
randomize;
for i:=1 to 10 do
  begin
    x:=random(200);
    y:=random(200);
    Canvas.Ellipse(x-2,y-2,x+2,y+2);
    Canvas.Brush.Color:=clBlack;
    Canvas.FloodFill(x,y, clBlack, fsBorder);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);   //случайно
var x,y,i,r:integer;
    m:array[1..10] of tpoint;
begin
 for i:=1 to 10 do
 begin
   m[1].x:=random(280);
   m[1].y:=random(250);
   r:=50;
   form1.Canvas.Pixels[m[1].x,m[1].y]:=clWhite;
   Form1.Canvas.Pen.Color := clRed;
   form1.Canvas.Ellipse(m[1].x-r,m[1].y-r,m[1].x+r,m[1].y+r);
 end;
end;

type
 Point=record
      x,y:integer;
      end;
 
var
  Form1: TForm1;
   m:array[1..10] of Point;
........................................
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
 for i:=1 to 10 do
  begin
   m[i].x:=random(200)+200;
   m[i].y:=random(200)+200;
   Canvas.Brush.Color:=clBlack;
   Canvas.Ellipse(m[i].x-2,m[i].y-2,m[i].x+2,m[i].y+2);
  end;
  Canvas.Brush.Style:=bsClear;
  Canvas.Ellipse(m[2].x-50,m[2].y-50,m[2].x+50,m[2].y+50);
  Canvas.Ellipse(m[8].x-80,m[8].y-80,m[8].x+80,m[8].y+80);
end;

const n=40;
type
 Point=record
       x,y,kt:integer; //добавим поле-кол. "захваченных" точек
       end;
 mas=array[1..n] of Point;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function Rasst(a1,a2:point):integer;
begin
result:=round(sqrt(sqr(a1.x-a2.x)+sqr(a1.y-a2.y)));
end;
procedure KolTch(m:mas;r:integer;var a1,a2:Point;var f:byte);
var i,j:byte;
    k:integer;
begin
//считаем сколько точек "захватила" окружность из этой точки
for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
    if (Rasst(m[i],m[j])<=r) then k:=k+1;
    m[i].kt:=k;
  end;
//ищем 2 первые точки с равным количеством "захваченных" точек
f:=0;
for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
    if m[i].kt=m[j].kt then
      begin
        f:=1;
        a1:=m[i];
        a2:=m[j];
        break; //если нашли, дальше не ищем
      end;
   end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,R:integer;
    t1,t2:Point;
    k:byte;
    ms:mas;
begin
randomize;
for i:=1 to n do
  begin
   ms[i].x:=random(200)+200;
   ms[i].y:=random(250)+50;
   Canvas.Brush.Color:=clBlack;
   Canvas.Ellipse(ms[i].x-2,ms[i].y-2,ms[i].x+2,ms[i].y+2);
  end;
R:=StrToInt(Edit1.Text);
KolTch(ms,R,t1,t2,k);
Edit2.Text:=IntTostr(t1.kt);
Edit3.Text:=IntTostr(t2.kt);
if k=0 then ShowMessage('Таких точек нет!')else
  begin
   Canvas.Brush.Style:=bsClear;
   Canvas.Ellipse(t1.x-R,t1.y-R,t1.x+R,t1.y+R);
   Canvas.Ellipse(t2.x-R,t2.y-R,t2.x+R,t2.y+R);
   Canvas.Brush.Style:=bsSolid;
   Canvas.Brush.Color:=clRed;
   Canvas.Ellipse(t1.x-4,t1.y-4,t1.x+4,t1.y+4);
   Canvas.Ellipse(t2.x-4,t2.y-4,t2.x+4,t2.y+4);
  end;
end;