Создадим универсальный калькулятор на Delphi, который будет считать множество функций.
Приступим..
Для начала нам нужен 1 Edit..сразу-же очищаем его Text, на событие OnKeyPress пишем следующий код:

 
 case key of 
 '0'..'9',',':; {Запрещаем в поле Edit ввод любых символов, кроме цифр и запятых} 
 else key:=#0;end; 
 

Дабы обезопаситься от ввода типа:"0,1,2,33" на событие OnChange пишем следующий код

 
 var 
 i,n:integer; 
 begin 
 n:=pos(',',edit1.text); {ищем первую запятую в поле} 
 for i:=n+1 to length(edit1.text) do 
 if edit1.text[i]=',' then edit1.clear; {Если находится ещё одна запятая после первой - очищаем поле} 
 

Дабы полностью обезопаситься от некорректного ввода, ставим
DragMode: dmAutomatic ; {запрещаем клики мышкой}
После того как у нас получилось неуязвимое поле, пришло время для создания кнопок калькулятора, сначала
создадим 16 кнопок (Button): Числа от 0 до 9-ти, кнопку для запятой, знака равно, знаков плюс, минус,
умножить и поделить.
Сперва стоит обеспечить ввод чисел, для этого на событие OnClick чисел от 0..9 и запятой пишем следующее:

 
 procedure TForm1.Button7Click(Sender: TObject); 
 begin 
 edit1.Text:=edit1.Text+'1'; 
 end;

Повторим процедуру для всех остальных чисел и знака запятой..На событие OnClick числа "0" стоит дописать ещё одну строку:

if edit1.Text='00' then edit1.Text:='0';

{позволяет ввод лишь одного нуля вначале}
Дальше нам нужно запоминать числа которые подаются на ввод и выводить их, создадим три глобальные переменные и одну переменную типа char для запоминания математических действий:

 
 var 
 Form1: TForm1; 
 a,b,d:extended; 
 c:char;

Сначала нам нужно считать первое число, на знаки "+","-","*","/" пишем следующий код:

 
 if edit1.Text<>'' then a:=strtofloat(edit1.Text); {Проверяем введено ли число в поле} 
 c:='+'; {Сохраняем математическое действие} 
 edit1.Clear;

Стоить повторить и для остальных действий..
Далее нам нужно считать вторую переменную, по этому на событие OnClick знака равно, пишем:

procedure TForm1.Button12Click(Sender: TObject); 
 begin 
 if edit1.Text<>'' then b:=strtofloat(edit1.Text); 
 case c of 
 '+':d:=a+b; 
 '-':d:=a*b; 
 '*':d:=a*b; 
 '/':d:=a/b;end; 
 edit1.Text:=floattostr(d); 
 end;

Вуаля, у нас получился простейший калькулятор, но я ведь обещал вам совсем другой, по-этому создадим дополнительно 24 кнопки (Button) для разных функций;
Одну из этих кнопок называем:"Pi", на событие OnClick этой кнопки пишем:

 
 procedure TForm1.Button17Click(Sender: TObject); 
 begin 
 edit1.Text:=floattostr(pi); {Вписываем в поле число Пи} 
 end;

Далее переименовываем Button`ы на "cos","sin","arctg", на событие OnClick пишем:

 
 procedure TForm1.Button18Click(Sender: TObject); 
 begin 
 edit1.Text:=floattostr(cos(strtofloat(Edit1.Text))); {В поле выводим косинус введенного числа} 
 end;

Проделать тоже самое с остальными функциями..
Дальше переименовываем две кнопки для вычисления sqr и sqrt..пишем:

procedure TForm1.Button21Click(Sender: TObject); 
 begin 
 edit1.Text:=floattostr(sqrt(strtofloat(Edit1.Text))); 
 end;

Повторить и для "sqr"
Вы наверное спросите, а как-же насчёт ввода отрицательных чисел?
Для этого переименовываем ещё одну кнопку в "+/-"
На событие OnClick пишем:

 
 procedure TForm1.Button23Click(Sender: TObject); 
 begin 
 edit1.Text:=floattostr(-(strtofloat(Edit1.Text))); 
 end;

Далее вернемся немного назад и напишем ещё пару функций для действий с двумя числами...в событии OnClick знака равно, введем две локальные переменные, например: q и w;
Теперь переименуем 6 кнопок в "mod","div","or","xor","and","x^y";
Что писать на событие OnClick этих кнопок можно прочесть выше
Теперь пришло считать второе число и вывести результат..О том как это сделать, написано выше.
В итоге текст на событии OnClick знака равно будет иметь такой вид:

 
 if edit1.Text<>'' then b:=strtofloat(edit1.Text); 
 case c of 
 '+':d:=a+b; 
 '-':d:=a*b; 
 '*':d:=a*b; 
 '/':begin 
 if edit1.Text<>'' then b:=strtofloat(edit1.Text); 
 if b=0 then showmessage('На ноль делить нельзя') else 
 d:=a/b;end; 
 'm':d:=round(a) mod round(b); 
 'd':d:=round(a) div round(b); 
 'o':d:=round(a) or round(b); 
 'x':d:=round(a) xor round(b); 
 'a':d:=round(a) and round(b); 
 '^':d:=exp(b*ln(a)); 
 end; 
 edit1.Text:=floattostr(d); 
 end;

Далее переименуем кнопку в "х!", на событие OnClick пишем:

 
 procedure TForm1.Button32Click(Sender: TObject); 
 var 
 x:extended; 
 i:integer; 
 begin 
 if edit1.Text<>'' then begin x:=strtofloat(edit1.Text); 
 for i:=1 to round(x)-1 do 
 x:=x*i; 
 edit1.Text:=floattostr(x);end; 
 end;

Переименуем ещё две кнопки в "x^2" и "x^3" на событие OnClick кнопки "x^2" пишем:

 
 procedure TForm1.Button35Click(Sender: TObject); 
 begin 
 if edit1.Text<>'' then 
 edit1.Text:= 
 floattostr(strtofloat(edit1.Text)*strtofloat(edit1.Text)); 
 end; 
 

Для кнопки "x^3" - аналогично.
Переименуем ещё одну кнопку в exp (Експонента), на OnClick Этой кнопки пишем:

 
 procedure TForm1.Button40Click(Sender: TObject); 
 begin 
 if edit1.Text<>'' then 
 edit1.Text:=floattostr(exp(strtofloat(edit1.Text))); 
 end; 
 

Переименуем следующую кнопку в "Int" (Возвращение целой части), пишем:

 
 procedure TForm1.Button30Click(Sender: TObject); 
 begin 
 if edit1.Text<>'' then 
 edit1.Text:=floattostr(trunc(strtofloat(edit1.Text))); 
 end; 
 

Следующая кнопка "not" (Возвращение противоположного числа + (-1) ).Пишем:

 
 procedure TForm1.Button29Click(Sender: TObject); 
 begin 
 if edit1.Text<>'' then 
 edit1.Text:=floattostr(-(trunc(strtofloat(edit1.Text))+1)); 
 end; 
 

Следующей будет кнопка "ln". Пишем:

 
 procedure TForm1.Button31Click(Sender: TObject); 
 begin 
 if edit1.Text<>'' then 
 if strtofloat(edit1.Text)>0 then 
 edit1.Text:=floattostr(ln(strtofloat(edit1.Text))); 
 end; 
 

Следующая кнопка "1/х". Пишем аналогично предыдущему.
Следующая - кнопка Backspace. Пишем:

 procedure TForm1.Button36Click(Sender: TObject); 
 var 
 s:string; 
 begin 
 s:=edit1.Text; 
 delete(s,length(s),1); 
 edit1.Text:=s; 
 end;

Осталось две кнопки, переименуем в "С" и "Close"
В первой пишем:

 
 procedure TForm1.Button38Click(Sender: TObject); 
 begin 
 edit1.Clear; 
 end; 
 

А во второй:

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

Удачи!

---