$
Size: a a a
$
$
_S
RS
_S
AS
RS
_S
RS
AS
AS
RS
_S
AS
DB
GB
AD
AD
RS
   function UpperFirst_(AString:string):string;
   var
      c:string;
   begin
      c:=StrTok(astring,'_','');
      c:=UpperFirst(c);
      result:=c;
      c:=StrTok('','_','');
      while c<>'' do
      begin
         c:=UpperFirst(c);
         result:=result+'_'+c;
         c:=StrTok('','_','');
      end;
   end;   
 И что оно делает? Видимо это из какой-то версии DelphiVA
   function UpperFirst_(AString:string):string;
   var
      c:string;
   begin
      c:=StrTok(astring,'_','');
      c:=UpperFirst(c);
      result:=c;
      c:=StrTok('','_','');
      while c<>'' do
      begin
         c:=UpperFirst(c);
         result:=result+'_'+c;
         c:=StrTok('','_','');
      end;
   end;   
 И что оно делает? Видимо это из какой-то версии Delphi