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.