Llamar un procedimiento desde otro

[ecfisa]

Hola martini002.

Me gustaria conocer la forma de llamar al primer procedimiento desde el segundo

Ejemplo:

Código Delphi [-]
...
procedure TForm1.Image1Click(Sender: TObject);
begin
 if Sender is TLabel then
    ShowMessage(TLabel(Sender).Name); // muestra Label3 cuando se invoca desde Label3Click
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
  Image1Click(Sender) 
end;
...

Como ves, no estabas tan lejos...

Saludos