xSADx

Seguinte galera,estou fazendo um trabalho que preciso fazer uma calculadora com a função CASE e a calculadora deve somar,dividir,subtrair,e multiplicar dois números mas quando vou usar o comando CASE sempre da erro quem puder ajudar agradeço! Segue ai o meu projeto e o erro: program Exercicio4_Aula5; var numero1,numero2, resultado: Real; escolha: CHAR; begin Writeln('Escolha a Opcao'); Writeln('Digite S para Soma'); Writeln('Digite M para Subtracao'); Writeln('Digite X para Multiplicacao'); Writeln('Digite D para Divisao'); Readln(escolha); Writeln('Digite o Primeiro Numero'); Readln(numero1); Writeln('Digite o Segundo Numero'); Readln(numero2); CASE escolha = 'S' Of numero1+numero2 end; end. E da esses erros: Compilar projeto, Alvo: C:\Users\PC\AppData\Local\Temp\project1.exe: Código saída 1, Erros: 3 project1.lpr(22,3) Error: Constant and CASE types do not match project1.lpr(22,3) Error: Constant Expression expected project1.lpr(22,3) Fatal: Syntax error, ":" expected but "END" found Alguém sabe como resolver?? Obrigado.