var I: Integer; S: string;begin I := 10; S := '33'; I := I + StrToInt(S); ShowMessage(IntToStr(I));end;