Deshabilitar caja de Texto

[tcp_ip_es]

algo cutre pero da el pego ahi os lo dejo :

Código Delphi [-]
// botón que activa el componente dbedit1
procedure TForm1.Button1Click(Sender: TObject);
begin
dbedit1.enabled:=true;
dbedit1.color:= clWindow;
dbedit1.Font.color:= clWindowText;

end;
// botón que desactiva el componente dbedit1
procedure TForm1.Button2Click(Sender: TObject);
begin
dbedit1.enabled:=false;
dbedit1.color:= clInactiveCaptionText;
dbedit1.Font.color:= clInactiveCaption;
end;

Saludos, Tony