Problemas con un MEMO

[creus]

Estoy restringiendo un EDIT para que solo puedan introducir valores númericos,

Código Delphi [-]
begin
 
if not (key in ['0'..'9',#8])then
   key:=#0;
 
end;

Me funciona perfectamente porque no me deja escribir texto en el EDIT pero el texto me lo escribe en un MEMO que tengo colocado al lado.

Gracias por la ayuda.