[iridium87]

СПАСИБО ТЕБЕ БОЛЬШОЕ. А Я ВОТ СИДЕЛ ПОКА И НА КОДИЛ
БЕГИН
a:=strtoint(edit1.text);
x:=x+a;
edit2.text:=inttostr(x);
edit1.text:='0';


у меня с переменными так ак они необходимы. разносторонние расчёты везде
А твой способ мне понравился