Juego del truco

[[AgustinOrtu]]

Bienvenido a ClubDelphi

Código Delphi [-]

interface

type
  TForm1 = class(TForm)
  private
    procedure UnMetodo(Param1, Param2, ... ParamN);    
  end;

implementation

procedure TForm1.UnMetodo(Param1, Param2, ... ParamN);
begin
  { codigo que antes tenias en el click del boton }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  UnMetodo(Param1, Param2, ... ParamN);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UnMetodo(Param1, Param2, ... ParamN);
end;