[[cHackAll]]

Empezado por cHackAll

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 (Sender as TEdit).ReadOnly := not (key in [#8, ' ', 'a'..'z', 'A'..'Z']); // Agregas los caracteres que necesites
end;

Así es! Sender es el objeto que produce el evento; si a todos los TEdits que tengas direccionas el evento indicado a la anterior funcion vale!