procedure TfGuestSearch.DoGuestSearch(sGuest : string);
var
  sColName, sColValue : string;
begin
  //find the guest using which ever column has been selected for sorting
  if bReSort then begin
    bReSort := False;
    dsPlayerList.Open;
    if gcFirstName.SortDirection = sdAscending then begin
      dsPlayerList.Columns['FIRST_NAME'].SortDirection := sdAscending;
    end else if gcFirstName.SortDirection = sdDescending then begin
      dsPlayerList.Columns['FIRST_NAME'].SortDirection := sdDescending;
    end else if gcSurname.SortDirection = sdAscending then begin
      dsPlayerList.Columns['SURNAME'].SortDirection := sdAscending;
    end else if gcSurname.SortDirection = sdDescending then begin
      dsPlayerList.Columns['SURNAME'].SortDirection := sdDescending;
    end;
    dsPlayerList.SortCaseInsensitive := True;
    dsPlayerList.Sort;
  end;

  if (gcFirstName.SortDirection = sdAscending) or (gcFirstName.SortDirection = sdDescending) then begin
    sColName := 'FIRST_NAME';
    sColValue := sGuest;
  end else if (gcSurname.SortDirection = sdAscending) or (gcSurname.SortDirection = sdDescending) then begin
    sColName := 'SURNAME';
    sColValue := sGuest;
  end;
  //now do the actual search
  dsPlayerList.Find([sColName], [sColValue], True, True);
end;