if (sUsername <> '') And (sPassword <> '') and (sConfirm <> '') and

    (sFirstName <> '') and (sLastName <> '') And (sUserType <> '') and

    (sUserExists <> True) then

  begin

    with dmTournament do

​

    begin

      tblUsers.Open;

      tblUsers.Last;

      tblUsers.Insert;

      tblUsers['Username'] := sUsername;

      tblUsers['Password'] := sPassword;

      tblUsers['FirstName'] := sFirstName;

      tblUsers['LastName'] := sLastName;

      tblUsers['UserType'] := sUserType;

      tblUsers.Post;

    end;

  end

  else

  begin

    MessageDlg('Info needed or info wrong', mtError, [mbOK], 0);

  end;