procedure TestFunction1;
var
 StringValue1,StringValue2 : WideString;
 Value: Integer;
begin
 StringValue1 := '1234';
 StringValue2 := '4321';
 Value := StrToInt(StringValue1) StrToInt(StringValue2);
 ShowMessage(IntToStr(Value));
end;