Нарисовать треугольник Опции

[basics]

Народ помогите нарисовать простой треугольник в Delphi

[volvo]

Проще некуда:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.canvas.MoveTo(100, 100);
  form1.canvas.LineTo(200, 200);
  form1.canvas.LineTo(  0, 200);
  form1.canvas.LineTo(100, 100);
end;

[мисс_граффити]

...или

Form1.Canvas.Polygon([Point(10,10),Point(200,200),Point(60,90)]);

[спасибо очень выручил]

Проще некуда:

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.canvas.MoveTo(100, 100);
  form1.canvas.LineTo(200, 200);
  form1.canvas.LineTo(  0, 200);
  form1.canvas.LineTo(100, 100);
end;