Habilitar edits

procedure FF_Habilitar_Edits(boo_habilitar: Boolean);

//------------------------------------------------------------------------------
procedure TF_Produtos.FF_Habilitar_Edits(boo_habilitar: Boolean);
begin
self.Edit2.ReadOnly:= true;
self.Edit3.ReadOnly:= not(boo_habilitar);
self.Edit4.ReadOnly:= not(boo_habilitar);
self.Edit5.ReadOnly:= not(boo_habilitar);
self.Edit6.ReadOnly:= not(boo_habilitar);
end;
procedure TF_Produtos.BitBtn1Click(Sender: TObject);
begin
self.Close();
end;