Add(MainForm,5643112,308,154)
{
}
Add(InlineCode,5251633,392,154)
{
 @Hint=#25:Большие буквы предложения|
 WorkPoints=#2:go|
 EventPoints=#7:CurText|
 DataPoints=#4:text|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|18:   text:THI_Event;|21:   CurText:THI_Event;|3:   |44:   procedure go(var Data:TData; index:word);|3:   |5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.go;|3:var|14:s, res:string;|10:i:Integer;|28:const delim=['.', '!', '?'];|5:begin|26:s :=(ToStringEvent(text));|9:res :='';|26:for i :=1 to Length(s) do |5:begin|54:if (i=1) or  ((s[i-2] in delim) and (s[i-1]=' ')) then|31:  res :=res+AnsiUpperCase(s[i])|25:     else  res:=res+s[i];|4:end;|25:_hi_OnEvent(CurText,res);|4:end;|4:end.|
 link(CurText,13000147:doText,[])
 link(text,13000147:Text,[(398,142)(431,142)(431,190)(447,190)])
}
Add(Memo,13000147,441,133)
{
 Left=5
 Top=45
 Width=375
 Height=210
 Strings=#45:                о первой букве в предложении.|45:                -----------------------------|66:   нужно заменить каждую первую букву в предложении на заглавную. |54:компонент StrCase с включенным FirstChar не работает, |41:меняет только первую букву на заглавную. |40:нашел в интернете код, переделал в  IC. |16:может кому надо.|
 ScrollBars=2
}
Add(Button,12211666,350,154)
{
 Left=10
 Top=10
 link(onClick,5251633:go,[])
}