unit CoursePass_u;
 //Add Name and Surname
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtCtrls;

type
  TfrmCoursePass = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    spnCook: TSpinEdit;
    spnPres: TSpinEdit;
    spnProf: TSpinEdit;
    btnCheckPass: TButton;
    pnlName: TPanel;
    edtName: TEdit;
    Label8: TLabel;
    lblCheckPass: TLabel;
    procedure edtNameExit(Sender: TObject);
    procedure btnCheckPassClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCoursePass: TfrmCoursePass;

implementation

{$R *.dfm}

procedure TfrmCoursePass.btnCheckPassClick(Sender: TObject);
begin
  // 3.2.2

//  if {complete} then
//  begin
//    lblCheckPass.Caption := 'Pass';
//  end else
//  begin
//   lblCheckPass.Caption := 'Fail';
//  end;
end;

procedure TfrmCoursePass.edtNameExit(Sender: TObject);
begin
  //Validate Name
end;

end.
