[rpgr]

procedure TFRMVehiculo.boton(Btn1,Btn2,Btn3,Btn4: Boolean);
begin
// BtnGrabar.Enabled :=Btn1;
// BtnEliminar.Enabled :=Btn2;
// BtnCancelar.Enabled :=Btn3;
// BtnSalida.Enabled :=Btn4;
end;


procedure boton(Btn1,Btn2,Btn3,Btn4: Boolean);
public
{ Public declarations }
end;



y cuando quieras activas o desactiva

boton(false,false,false,true);