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