Input Script Font is only for the Delphi

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

Description:

This script is placed on the component "Edit1" on "Events: onkeypress"
So the data can be input only CAPITALS only, while the figure can not be