سؤال متعلق بنوع الحقل

يمكن أخي الكريم فعل ذلك برمجيا

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z', #13]) then
Key := #0;;
end;

هذا الكود لايسمح إلا بكتابة الحروف الكبيرة و يكمنك التعديل فيه

لك جزيل الشكر اخي الكريم

تحياتي