исправить ошибки в калькуляторе на делфи (готов заплатить)

[gylayko]

в полуготовой программе нужно добавить: возможность ввода с клавиатуры чисел и знаков (-,+,*,/ и = как Enter) и сделать ограничения на ввод символов (ничего кроме этих знаков вводить нельзя); убрать всякие выводы в Label и сделать, чтобы все выводило в Edit; добавить кнопки cos, sin и tg; исправить ошибку - когда нажимаешь на число и на / вместо числа появляется 0.
калькулятор.rar
это нужно сделать до завтра!

[EXCELSI0R]

E-mail: excelsior@mail.ru, пишите, сделаю.

[Человек_Борща]

Если оплатите сегодня, то пишите. Контакты в подписи и под аватаркой.

[kventin_zhuk]

если актуально - пишите.

[Алексей_2012]

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var s:real;
begin
case Key of
  #8,'0'..'9' :  ; // цифры и <Back Space>

       '.',',': // разделитель целой и дробной частей числа
                begin
                  if Key <> DecimalSeparator then
                  Key := DecimalSeparator; // заменим разделитель на допустимый
                  if Pos(DecimalSeparator,Edit2.Text) <> 0
                  then Key := Chr(0); // запрет ввода второго разделителя
                end;
           '-':    // минус можно ввести только первым символом,
                // т.е. когда ячейка пустая
                if Length(Edit2.Text) <> 0
                      then Key := Chr(0);
        #13:begin
            s:=StrToFloat(Edit1.Text)+StrToFloat(Edit2.Text);
            Edit3.Text:=FloatToStrF(s,fffixed,6,2);
            end;
        else   // остальные символы запрещены
               key := Chr(0);
    end;
end;

вот примерно то что вам нужно(ограничители)