Вопрос про ООП

[Unconnected]

Ну, а как надо-то?)

[Utkin]

Указывайте вместо nil тот компонент, где Вы планируете отображать свои рисунки. И не забудьте про родителя (Parent).

ЗЫ. Об этом уже упоминалось в посте #2

[Unconnected]

Так я понял, так и хочу Я ж говорю, мне надо в процедуру-конструктор передавать этот самый компонент и на нём создавать TImage.

[Utkin]

Constructor line_road.create(AOwner: TComponent);
begin
  img:=TImage.Create(Self);
  img.Parent:=self;
end;

[Unconnected]

Ну, и AV...

procedure TForm1.FormShow(Sender: TObject);
var i,y:integer;
begin
  y:=3;
  for i:=1 to kolel do begin
    constr[i]:=line_road.create(form1.sscrollbox1);
    constr[i].move(3,3+y);
    constr[i].draw(names[i]);
    inc(y,constr[i].img.Height+4);
  end;
end;

type line_road = class(TForm)
  private
    x,y:byte;
  public
    img:TImage;
    constructor create(AOwner: TComponent);
    Procedure move(x,y:byte);
    Procedure draw(name:string);
end;

implementation

constructor line_road.create(AOwner: TComponent);
begin
  img:=TImage.Create(self);
  img.parent:=self;
  img.visible:=true;
  img.Show;
end;

Procedure line_road.move(x,y:byte);
begin
  img.Left:=x;
  img.Top:=y;
end;

Procedure line_road.draw(name:string);
begin
  img.Picture.LoadFromFile(folder+'Images\'+name);
end;

Или я туплю..

[Unconnected]

Всё получилось, спасибо.