как сделать Класс типа Image

[spamer]

Лично мне не особо понятна тут цель наследования от TImage.
Если я правильно понял, что надо ТС, то можно вот так сделать:

...

type
  TImg = class(TObject)
    private
      FImg: TImage;
    public
      constructor Create(AOwner: TWinControl); virtual;
      destructor Destroy; override;

      //procedure Init(const AImg: TImage);
      property Img: TImage read FImg write FImg; // Тут лучше получать доступ через методы Get и Set
  end;

...

var
  MyImg: TImg;

...

constructor TImg.Create(AOwner: TWinControl);
begin
  FImg := TImage.Create(AOwner);
  FImg.Parent := AOwner;
end;

destructor TImg.Destroy;
begin
  FreeAndNil(FImg);
  inherited;
end;

{procedure TImg.Init(const AImg: TImage);
begin
  FImg := nil;
  FImg := AImg;
end;}

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  MyImg := TImg.Create(Self);
  //MyImg.Init(Image1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //MyImg.Init(Image1);
  MyImg.Img := Image1;
  MyImg.Img.Left := 0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  //MyImg.Init(Image2);
  MyImg.Img := Image2;
  MyImg.Img.Left := 0;
end;

[SevenXP]

procedure Tim.Init;
begin
  self.left:=self.Left+5;
end;

что такое self и где оно определяеться? и где передаеться нужный inmage

spamer ок спс завтро попробую сеня мучиться не буду
В принцепи мне нужно или кто может подкинуть статью
Мне нужно что бы допустим переменная (IM) показывала на компонент который я передал ей допустим это был Image2 Так что бы я мог писать IM.Left+5 а для компелятора он видел Image2.Left+5? я понимаю это нужно делать через класс?
Ну и завтро пойду мучить препода))

[Stilet]

что такое self и где оно определяеться?

self это указатель на обьект класса Tim, который инициировал выполнение метода Init; Всмысле тот объект метод которого был вызван.

[evg_m]

Мне нужно что бы допустим переменная (IM) показывала на компонент который я передал ей допустим это был Image2 Так что бы я мог писать IM.Left+5

nак??

var
  im: Timage; .// без всякмх собственных клаасов

im:=image1; //Im сейчас тоже что и image1
im.left:=im.left+4;

im=image2; // а теперь он стал image2
im.left:=im.left+5;

зачем надо если можно короче и понятней

image1.left:=image1.left1+5;

image2.left;=image.left+5;

ptocedure init(im: Timage);
//выполнить действия с указанным (im) объектом
begin
  im.left:=im.left+5;
end;

init(image1);// выолняем с image1
init(image2);// выолняем с image2