procedure TfrmWriterAspect.edNoteKeyPress(Sender: TObject; var Key: Char);
var
  str: string;
begin
  inherited;
  str := edNote.Text;
  if length(str) in [0,1,2] then
  begin
    if not (upcase(Key) in )then key :=#0;
  end
  else if length(str) in [3,4,5] then
  begin
    if not (upcase(Key) in )then key :=#0;
  end else Key :=#13;
end;