xxxxxxxxxx
with dmTournament do
begin
tblUsers.Open;
while (not tblUsers.Eof) and (sUserExists = False) do
begin
if (tblUsers['Username'] = sUsername) then
begin
sUserExists := True;
end
else
begin
tblUsers.Next;
end;
end;
tblUsers.Close;
end;