Вопрос по делфи, задача покупки

[astramorela]

пожалуйста, помогите!
задачка вроде простая на первый взгляд - цена элемента покупки вводится в поле edit, в зависимости от суммы покупки -скидка. Вывести результаты в поле label. Ввод последнего элемента покупки по двойному Enter. Программа работает без той части, что обрабатывает двойной Enter, а с keypress выдает ошибку после запуска на выполнение: и еще не пойму, как организовать ввод элементов покупки через поле edit, чтобы суммировался результат. Получается цикл, а условие какое - не пойму. Количество элементов покупки неизвестно.

procedure TForm1.Button1Click(Sender: TObject);
var summa,chena,skidka1:integer;sk:real;
begin
summa:=0;
chena:=StrToInt(Edit1.Text);
summa:=summa+chena;
if (summa>300) and (summa<500) then begin
    skidka1:=1; sk:=summa-summa*0.01;  end else begin
      if summa>1000 then begin skidka1:=3; sk:=summa-summa*0.03 end else  begin
                                                       skidka1:=2; sk:=summa-summa*0.02;
                                                                   end;


  Label1.Caption:=' Âåëè÷èíà ñêèäêè:      '+IntToStr(skidka1)+ #13+
                        'Ñóììà ñî ñêèäêîé            ' +    FloatToStrF(sk,ffGeneral,8,2);

end; end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then begin  Form1.Edit1.Clear;
   tag:=tag+1;
   if tag=2 then begin
    ShowMessage('äâà íàæàòèÿ');
                  tag:=0;
   end;
 end else tag:=0;
end;

end.

[Stilet]

а с keypress выдает ошибку после запуска на выполнение

Какую? на какой строке?

как организовать ввод элементов покупки через поле edit, чтобы суммировался результат

Пардонте, а у тебя разве не так?

[astramorela]

все происходит так - Run, ввожу элементы покупки, по двойному Enter получаю сообщение, что было двойное нажатие и дальше окно - Debugger Exception Notification - Project Progect1.exe raised exception class EConvertError with message "is not a valid integer value". Process stopped. Use Step or Run to continue. OK Help

[astramorela]

Application.Initialize;
Application.CreateForm(TForm,Form1) ;
Application.Run;
end.

[Mad_Cat]

так пойдет?

[astramorela]

запускаю программу на выполнение и ошибка - Expected an identifier but invalid character character #209 found

[astramorela]

а .exe работает прекрасно. непонятно....

[Mad_Cat]

запускаю программу на выполнение и ошибка - Expected an identifier but invalid character character #209 found

проект создан в delphi2006(там переменные на русском языке))),а запускаете вы по ходу его в версии не выше 7-ки)

[astramorela]

у меня делфи7. спасибо

[astramorela]

что не так в моей программе, почему не работает?