unit Question3_U;

//Enter your student number here


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,pngImage,clsQuestion3_u;

type
  TfrmQuestion3 = class(TForm)
    grpQ3: TGroupBox;
    btnQ3_2_1: TBitBtn;
    btnQ3_2_2: TBitBtn;
    Bevel1: TBevel;
    rgpQ3: TRadioGroup;
    rgpQ3b: TRadioGroup;
    Bevel2: TBevel;
    imgPlayer: TImage;
    imgPC: TImage;
    lblQ3: TLabel;
    procedure btnQ3_2_1Click(Sender: TObject);
    procedure btnQ3_2_2Click(Sender: TObject);
  private
  objCard : tCard;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmQuestion3: TfrmQuestion3;

implementation

{$R *.dfm}

procedure TfrmQuestion3.btnQ3_2_1Click(Sender: TObject);
begin
 //Question 3.2.1

  

  showmessage('Done');  //given
end;

procedure TfrmQuestion3.btnQ3_2_2Click(Sender: TObject);
begin
//Question 3.2.2



end;

end.
