unit PassForm;

interface

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

type
  TFrmPassword = class(TForm)
    LblPlayerName: TLabel;
    LblEngagePass: TLabel;
    EPassword: TEdit;
    BtnOK: TButton;
    BtnStorno: TButton;
    procedure BtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPassword: TFrmPassword;

implementation

{$R *.dfm}

procedure TFrmPassword.BtnOKClick(Sender: TObject);
begin

  // kontrola neprazdnosti zadaneho hesla
  if EPassword.Text<>'' then FrmPassword.ModalResult := mrOK
  else ShowMessage('Nebylo zadané heslo!');
end;

end.