Criando Procedure ou functions, nao sei

procedure MinhaProcedure (habilitar : Boolean = True);
begin
  if habilitar then
  begin
    // seu código que habilita os controles aqui
  end
  else
  begin
    // seu código que desabilita os controles aqui
  end;
end;

MinhaProcedure; // habilita os controles
MinhaProcedure(False); // desabilita os controles

procedure Habilita( Chave: Boolean = True);
begin
  Button1.Visible := Chave;
  DBEdit2.Visible := not (Chave);
end;

Habilita;

habilita(False);

Procedure TForm1.MinhaProcedure (habilitar : Boolean = True); 
begin
  //Implementação
end;

unit...
....
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure MinhaProcedure (habilitar : Boolean = True);
  end;

var
  Form1: TForm1;

implementation
...

Form1.button1.visible := false;
Form1.dbedit2.enabled := true; 

with Form1 do
begin
  button1.visible := false;
  dbedit2.enabled := true; 
end;