помогите сделать калькулятор

[Кипятилка]

задали задачу, а я вообще ноль, помогите пожалуйста!

Создать приложение, обеспечивающее ввод двух целых чисел и выполнение над ними арифметических операций сложения, вычитания, умножения и деления. Для выбора операции использовать компонент Radio Group, вывод сообщения об ошибке при вводе делителя, равного нулю, выполнить в отдельном окне сообщения.

[Terran]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If (StrToInt(Edit1.Text) <> 0) And (StrToInt(Edit2.Text) <> 0) Then
Begin
Case RadioGroup1.ItemIndex Of
0: Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text));
1: Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text) *  StrToFloat(Edit2.Text));
2: Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text) -  StrToFloat(Edit2.Text));
3: Edit3.Text:=FloatToStr(StrToFloat(Edit1.Text) +  StrToFloat(Edit2.Text));
End;
End
Else
Begin
ShowMessage('Сообщение');
End;
End;

[Кипятилка]

спасибо, спас!