Курсовая работа: Програмування в Delphi

End;

3: Begin

Memo2.Lines.Add (' Відповідь вірна');

m := m + 1;

End;

4: Begin

Memo2.Lines.Add (' Відповідь не вірна');

Memo2.Lines.Add ('Опрацюйте матеріал спочатку');

End;

5: Begin

Memo2.Lines.Add (' Відповідь не вірна');

Memo2.Lines.Add ('Опрацюйте матеріал спочатку');

End;

end;

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Clear;

Memo2.Clear;

Edit1.Clear;

Label3.Caption := '';

k := k + 1;

Case k of

2: Begin