Все очень просто
procedure TProForm.Click(Sender: TObject);
var
myBtn: TButton;
myImg: TImage;
begin
if Sender is TButton then
begin
myBtn := (Sender as TButton);
//код, если нажата кнопка
end;
if Sender is TImage then
begin
myImg := (Sender as TImage);
//код, если нажата картинка
end;
//общий код
end;
А в редакторе Events можете указать на эту процедуру для обоих объектов.
Либо сделать динамически, например в методе OnFormCreate:
myButton.onClick := self.Click;
myImage.onClick := self.Click;
Если мне не изменяет память, то вот так, нету под рукой дельфей, чтобы проверить.
UPD
А еще можно ваш способ использовать так:
procedure TProForm.CommonClick;
begin
//ваш длинный код
end;
procedure TProForm.Button1Click(Sender: TObject);
begin
self.CommonClick;
end;
procedure TProForm.Image1Click(Sender: TObject);
begin
self.CommonClick;
end;
Или же мой:
procedure TProForm.Click(Sender: TObject);
var
myBtn: TButton;
myImg: TImage;
procedure DoSomthing;
begin
//ваш длинный код
end;
begin
if Sender is TButton then
begin
myBtn := (Sender as TButton);
DoSomthing;
end;
if Sender is TImage then
begin
myImg := (Sender as TImage);
DoSomthing;
end;
end;