Нарисовать линию точками

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
        for(int x=100; x<=500; x++){
        Form1->Canvas->Pixels[x][500]=clBlue;}
}
}

int func(int x, TPoint a, TPoint b)
{
  int res;
  if (b.x != a.x)
    res = a.y + 1.0 * (b.y - a.y) / (b.x - a.x) * (x - a.x);
  else
    res = a.y;
  return res;
}
//---------------------------------------------------------------------------
int max(int a, int b)
{
  return a > b ? a : b;
}
//---------------------------------------------------------------------------
int min(int a, int b)
{
  return a < b ? a : b;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TPoint point1 = TPoint(ClientWidth / 2, ClientHeight / 2), point2 = TPoint(100, 100);
  int i, max_x = max(point2.x, point1.x), min_x = min(point2.x, point1.x),
      max_y = max(point2.y, point1.y), min_y = min(point2.y, point1.y);
  if (point2.x != point1.x)
    for (i = min_x; i <= max_x; i++)
      Canvas->Pixels[i][func(i, point1, point2)] = clRed;
  else
    for (i = min_y; i <= max_y; i++)
      Canvas->Pixels[point1.x][i] = clRed;
}

oid __fastcall TForm1::Button1Click(TObject *Sender)
{
    for(int x=100; x<=500; x++){
        Form1->Canvas->Pixels[x][x+2]=clBlue;}
}

float func(float x, TPoint a, TPoint b)
{
  float res;
  if (b.x != a.x)
    res = a.y + 1.0 * (b.y - a.y) / (b.x - a.x) * (x - a.x);
  else
    res = a.y;
  return res;
}
//---------------------------------------------------------------------------
int max(int a, int b)
{
  return a > b ? a : b;
}
//---------------------------------------------------------------------------
int min(int a, int b)
{
  return a < b ? a : b;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TPoint point1 = TPoint(ClientWidth / 2, ClientHeight / 2), point2 = TPoint(300, 100);
  int max_x = max(point2.x, point1.x), min_x = min(point2.x, point1.x),
      max_y = max(point2.y, point1.y), min_y = min(point2.y, point1.y);
  float i, step = 0.01;
  if (point2.x != point1.x)
    for (i = min_x; i <= max_x; i += step)
      Canvas->Pixels[i][func(i, point1, point2)] = clRed;
  else
    for (i = min_y; i <= max_y; i += step)
      Canvas->Pixels[point1.x][i] = clRed;
}