Как же нарисовать линию на форме? (Вопрос новичка)

[_Dmitry]

Сообщение от YERokez

_Dmitry, я понял, что программно надо не создавать линию, а управлять ее параметрами.
А что, TImage можно программно ложить на форму? Я не пробовал.

Вычерчивание линий (горизонтальных и вертикальных) с помощью панелей.

uses ..., StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    Panels: array[1..40] of TPanel;
  end;
.............
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 20 do
    begin
      Panels[i]:=TPanel.Create(self);
      Panels[i].Left:=20+(i-1)*10;
      Panels[i].Top:=20+(i-1)*10;
      Panels[i].Width:=200;
      Panels[i].Height:=2;
      Panels[i].Color:=clRed;
      Panels[i].BevelOuter:=bvNone;
      Panels[i].Parent:=self;
    end;
  for i:=21 to 40 do
    begin
      Panels[i]:=TPanel.Create(self);
      Panels[i].Left:=20+(i-21)*10;
      Panels[i].Top:=20+(i-21)*10;
      Panels[i].Width:=2;
      Panels[i].Height:=200;
      Panels[i].Color:=clRed;
      Panels[i].BevelOuter:=bvNone;
      Panels[i].Parent:=self;
    end;
end;

[harmager]

Для вырисовки линии используй процедуру OnPaint. В теле процедуры -
MoveTo - координаты точки начала линии, LineTo - координаты точки конца. Что касается всего остального - пишешь имя объекта, с которым работаешь, ставишь точку и если написал всё правильно, автоматическое контекстное меню покажет все поля и свойства объекта.