Запрет в KeyPress

[toha_master]

Подскажите как в едит запретить ввод более одного символа.

[sariman]

Что-то типо этого.

if Length(Edit1.Text) > 1 then
  Delete(Edit1.Text, 2, Length(Edit1.Text));

Или в OnKeyPress:

if Length(Edit1.Text) > 1 then
  Key := #0;

[Luuzuk]

Ну как вариант

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if (sender as TEdit).Text <> '' then
  (sender as TEdit).Text := (sender as TEdit).Text[1];
  (sender as TEdit).SelStart := 1;
end;

[Аватар]

Edit.MaxLength:=1 чем не подходит?