Переключение раскладки на анг. яз в Edit

[DomiNick]

Попробуйте так:

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.CharCase:=ecUpperCase;
end;

поставить на событие онКейПресс запрет на ввод других символов

А я бы сделал не "запрет", а "замену"...