پروسیجر

سلام اگه میشه کمک کنین.میخام تویه پروسیجراینکاروانجام بدم به این ترتیب که دوتاعملوندویه عملگر از کاربربگیره وبه بسته به اون عملگرماکه یا جمع یا تفریق و...اون عملوروی عملوندهایاعددهای ما انجام بده

[PHP]
Procedure Four_Op (Operand1,Operand2 : Integer;Opereator : Byte);
Begin
case Opereator of
43: Form1.Edit4.Text := IntToStr(Operand1 + Operand2);
45: Form1.Edit4.Text := IntToStr(Operand1 - Operand2);
42: Form1.Edit4.Text := IntToStr(Operand1 * Operand2);
47: Form1.Edit4.Text := IntToStr(Operand1 DIV Operand2);
end;
End;
---------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
I : Byte;
C1 : Char;
S1 : String;
begin
S1:= Edit3.Text;
C1 := S1[1];
I := Ord(C1);
Four_Op(StrToInt(Form1.Edit1.Text),StrToInt(Form1. Edit2.Text),I);
end;
[/PHP]