разработка простейшего калькулятора в Delphi

[Ivanacats]

подскажите как сделать, чтобы на ноль разделить было нельзя с выходом сообщения об ошибке в label 4.
вот код программы:

var
  Form1: TForm1;
  d:Integer;
  a,b:Integer;
  c:Real;
  s:string;
  flag1,flag2:Boolean;
implementation

{$R *.dfm}
 procedure ravno (d:integer);
 begin
   a:=StrToInt(Form1.edt1.text);
     b:=StrToInt(Form1.edt2.text);
   case d of
   1: c:=a+b;
   2: c:=a*b;
   3: c:=a-b;
   4: c:=a/b;
   end;
   Form1.lbl4.caption:=floattostrf(c, ffgeneral,14,4);
 end;

procedure TForm1.OnKeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9','+','-',#8]) then key:=#0;
end;

procedure TForm1.btn13Click(Sender: TObject);
begin
ravno(1);
end;

procedure TForm1.btn14Click(Sender: TObject);
begin
ravno(2);
end;

procedure TForm1.btn15Click(Sender: TObject);
begin
ravno(3);
end;

procedure TForm1.btn16Click(Sender: TObject);
begin
ravno(4);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if flag1=true then
  begin
s:=edt1.text;
s:=s+'0';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'0';
edt2.text:=s;
end;
end;

procedure TForm1.edt1Click(Sender: TObject);
begin
  flag2:=False;
flag1:=True;
end;

procedure TForm1.edt2Click(Sender: TObject);
begin
   flag1:=false;
flag2:=true;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'1';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'1';
edt2.text:=s;
end;
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'2';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'2';
edt2.text:=s;
end;
end;

procedure TForm1.btn4Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'3';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'3';
edt2.text:=s;
end;
end;

procedure TForm1.btn5Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'4';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'4';
edt2.text:=s;
end;
end;

procedure TForm1.btn6Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'5';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'5';
edt2.text:=s;
end;
end;

procedure TForm1.btn7Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'6';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'6';
edt2.text:=s;
end;
end;

procedure TForm1.btn8Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'7';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'7';
edt2.text:=s;
end;
end;

procedure TForm1.btn9Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'8';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'8';
edt2.text:=s;
end;
end;

procedure TForm1.btn10Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+'9';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+'9';
edt2.text:=s;
end;
end;

procedure TForm1.btn12Click(Sender: TObject);
begin
 if flag1=true then
  begin
s:=edt1.text;
s:=s+',';
edt1.text:=s;
end else
if flag2=true then
  begin
s:=edt2.text;
s:=s+',';
edt2.text:=s;
end;
end;

procedure TForm1.btn11Click(Sender: TObject);
begin
edt1.Text:='';
edt2.Text:='';
lbl4.Caption:='';
end;

end.

[maLoy*508]

как то так:

4: begin
    if b = 0 then Label4.Caption = 'Error!!!'
    else c:=a/b;
  end

[Ivanacats]

а это в Label писать? если да, то показывает ошибку перед еррор

[kventin_zhuk]

Сообщение от Ivanacats

а это в Label писать? если да, то показывает ошибку перед еррор

if b = 0 then Label4.Caption := 'Error!!!'

[Ivanacats]

я ставила двоеточие if b:= '0' then Lbl4.Caption: = 'Error!!!'
else c:=a/b;
пишет [Error] Unit1.pas(305): Type of expression must be BOOLEAN

[kventin_zhuk]

напишите пожалуйста полный текст процедуры где вы это делаете. Подозреваю что у вас b объявлено не так. Или может вы не там двоеточие добавили) в условии и должно быть = , это важно.

[Ivanacats]

procedure TForm1.lbl4Click(Sender: TObject);

begin
if b:= '0' then Lbl4.Caption: = 'Error!!!'
else c:=a/b;

end;

end.

[kventin_zhuk]

if b = '0' then Lbl4.Caption:= 'Error!!!'
else c:=a/b;

Как и предполагал. Вот тут должно быть = , а не := .
:= в паскале это оператор присваивания, а = - это оператор сравнения( тип его результата истина или ложь).

[Ivanacats]

вот что написала=(
[Error] Unit1.pas(304): Incompatible types
[Error] Unit1.pas(304): ':=' expected but ':' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[kventin_zhuk]

Сообщение от Ivanacats

вот что написала=(
[Error] Unit1.pas(304): Incompatible types
[Error] Unit1.pas(304): ':=' expected but ':' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

a,b:Integer;
c:Real;

Ааа, у вас b объявлена как integer, а b сравнивается с символом. Напишите:

if b = 0 then .......