Edit1.Text := Edit1.Text + '7';
und bevor du fragst: String zu Integer geht mit StrToInt(Edit1.Text);