2 Byte addieren

[Praktikant]

ich habe in einem string 16 bit, dazu möchte ich 16bit aus einem editfeld addieren.
Aber irgendwie addiert das prog falsch
Mein Ansatz:

Delphi-Quellcode:

var status:string;

status:=IntToStr(StrToInt(status) and StrToInt(Edit_HandEin.Text));