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

begin

if f = 0

then begin

Edit1.Text:= '1';

f:= 1;

end

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

end;

procedure TForm3.Butt_2Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '2';

f:= 1;

end

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

end;

procedure TForm3.Butt_3Click(Sender: TObject);

begin

if f = 0

then begin

Edit1.Text:= '3';

f:= 1;

end

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

end;

procedure TForm3.Butt_4Click(Sender: TObject);

begin

if f = 0