// Как у тебя
 case stg of
   1: begin
   strc:=int2str(s1);
   end;

   2: begin
   strc:=int2str(s1) + int2str(s2);
   end;

   3: begin
   strc:=int2str(s1) + int2str(s2) + int2str(s3);
   end;
end;


[size=9][color=gray]------------ Дoбавленo в 19.42:[/color][/size]

//как принято
 case stg of
   1:strc:=int2str(s1);
   2:strc:=int2str(s1) + int2str(s2);
   3:strc:=int2str(s1) + int2str(s2) + int2str(s3);
 end;