Condicional cuando un TEdit está vacío

[Parabol77]

Buenas a todos,

estoy diseñando un programa y estoy teniendo un problema, aparentemente muy tonto.

Mi programa consta de un TEdit y un botón. Quiero poner la condición de que, si el TEdit está vacío, el botón aparezca como desactivado.

He hecho esto:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

   If Edit1.Text='' Then Button1.Enabled:=False;

end;

Pero no funciona.

Agradecería cualquier tipo de ayuda.

Muchas gracias de antemano.
Un saludo.

[ecfisa]

Hola Parabol77.

Tendría que funcionarte, el código es correcto. Por las dudas de que haya algún espacio probá:

Código Delphi [-]
  if Trim(Edit1.Text) = '' Then Button1.Enabled:=False;

También podrías hacer:

Código Delphi [-]
  Button1.Enabled:= Length(Edit1.Text) > 0;

Saludos.

[Pedro-Juan]

Yo lo he hecho muchas veces, pero en el evento OnChange del Edit.

Un saludo.

[ecfisa]

Hola Pedro-Juan.

Coincido con vos que a priori, pareciera ser más adecuado ubicar el código en el evento OnChange u OnExit (de acuerdo a lo que quiera hacer).
Pero también funciona correctamente en el evento OnKeyPress.

Saludos.

[Parabol77]

¡Muchísimas gracias a ambos!
He probado a asociar el código al evento OnChange, y ahora funciona perfectamente.

De nuevo, ¡gracias!