Add(MainForm,2953706,21,105)
{
 Width=445
 Height=359
}
Add(Label,3911928,168,217)
{
 Left=195
 Top=165
}
Add(Timer,7563198,70,161)
{
 link(onTimer,2321842:doValue,[])
}
Add(Memory,2321842,119,161)
{
 Default=Integer(12123)
}
Add(Memory,1102296,119,217)
{
 Point(Data)
 link(onData,3911928:doText,[])
 link(Data,2321842:Value,[])
}
Add(Button,4525560,70,217)
{
 Left=90
 Top=170
 link(onClick,1102296:doValue,[])
}

// Как у тебя
 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;