procedure TfrmAT_NewMessage.spSkinMemo1KeyPress(Sender: TObject;
  var Key: Char);
var
  i: integer;  
begin
  i:= Length((Sender as TspSkinMemo).Text);
  case spSkinRadioGroup2.ItemIndex of
    0: begin
         if (Key in [#13,'А'..'Я','а'..'я']) then Key:=#0;
         ///spSkinStdLabel2.Caption:= Format(at_sm_n_text_04,[IntTostr(i)]);
        end;
    1: begin
         if key = #13 then Key:= #0;
          ///spSkinStdLabel2.Caption:= Format(at_sm_n_text_04,[IntTostr(i)])
        end;
  end;
  spSkinStdLabel2.Caption:= Format(at_sm_n_text_04,[IntTostr(i)]);
end;