edit sin letras

[maxoncris]

has probado con el evento OnKeyPress del edit?

procedure TForm1.Edit1OnKeyPress(Sender: TObject; Key: char);
begin
if Key in ['a'..'z', 'A'..'Z'] then Key := #0;
end;

no sé si es exactamente lo q necesitas. a mi me funciona.

solo tiene un fallo, y es que no funciona con letras con acento y la ñ. para eso tendrías que añadirlas a la lista