Оператор выбора. Delphi 7

[Miracle01]

Даны два действительных положительных числа х и y. Арифметические действия над числами пронумерованы (1-сложение, 2-вычитание, 3-умножение, 4-деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.

[Sazary]

Пользуйтесь поиском!
http://programmersforum.ru/showthread.php?t=47266

[DeKot]

var c: real;  // результат вычислений
               operacia: byte;
begin
  case  operacia of
  1: c:= a+b;
  2: c:= a-b;
  3: c:= a*b;
  4: c:= a/b;
  end;
end;

Есно надо проверку деления на "ноль".Код,к примеру, в процедуру Click для кнопки.Переменные a,b,c вводить через Edit и т.д.