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

[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;

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

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

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;