Курсовая работа: Створення програми-органайзера

Edit1.Text:= '4';

f:= 1;

end

else Edit1.Text:= Edit1.Text + '4';

end;

procedure TForm3.Butt_5Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '5';

f:= 1;

end

else Edit1.Text:= Edit1.Text + '5';

end;

procedure TForm3.Butt_6Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '6';

f:= 1;

end

else Edit1.Text:= Edit1.Text + '6';

end;

procedure TForm3.Butt_7Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '7';

f:= 1;