Проблема с компонентом TImage

[notbugme]

Я написал процедуру:

robot;
var........
begin
with Image1 do 
begin
left:=50;
top:=50;
end;
...............
end;

ВОПРОС: как мне переделать ету процедуру, если я создал 3 имейджа и просто буду обращатса к ним. Например, Robot(image3); ?

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[Пепел Феникса]

procedure Robot(Image:TImage);
begin
 Image.Height:=5;
end;

намек ясен?)

[notbugme]

спасибо огромное