Калькулятор. Функция +/-

[Ruz34]

Только начал изучать Delphi и решил создать калькулятор. Запнулся на функции +/-. Сначала он работал, но почему то после каждого нажатия кнопки вставлял - по несколько раз перед текстом. Затем я полностью изменил код, но теперь вылезает ошибка. Помогите пожалуйста.

PHP код:

procedure TForm1.Button20Click(Sender: TObject);
var s:string;
begin
s:=edit1.text;
 if s <> '' then
 begin
  if pos('-',s) = 0 then edit1.text:='-'+ edit1.text
  else edit1.text:=copy(s;2;length(s)-1);
 end else label1.Font.color:=clnone;
end; 


Перед 2 показывает вот эту ошибку:
[Error] Unit1.pas(253): Not enough actual parameters

[Аватар]

Сравни (второй вариант правильный)
copy(s;2;length(s)-1)
и
copy(s,2,length(s)-1)

[Ruz34]

Спасибо. Просто в всплывающей подсказке было написано ; ;.

[superedward]

Сообщение от Ruz34

Спасибо. Просто в всплывающей подсказке было написано ; ;.

Плохая всплывающая подсказка!

[Mad_Cat]

как вариант

if pos('-',s) = 1 then delete(s,1,1)
  else s:='-'+s;
edit1.text:=s;