[Winny]

Хмм... Код для обычного Edit'а работает, а для DBEdit не работает, но если что, то вот ТОЛЬКО английская раскладка для обычного Edit:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'A'..'Z','a'..'z',#8:;
else
Key:=Chr(0);
end;

А вот ТОЛЬКО русская раскладка для обычного Edit:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'А'..'Я','а'..'я',#8:;
else
Key:=Chr(0);
end;