if (OrderPos=0) or (pos(myFieldName,copy(SqlStr,OrderPos,100))=0) then TempStr := ' ORDER By "' + myFieldName + '" ASC' else if pos('ASC',SqlStr)=0 then TempStr := ' ORDER By "' + myFieldName + '" ASC' else TempStr := ' ORDER By "' + myFieldName + '" DESC' ; SortPos := pos('ASC',TempStr) ; If SortPos>0 then Column.Title.Caption := Column.Title.Caption + ' ▲' ; SortPos := pos('DESC',TempStr) ; If SortPos>0 then Column.Title.Caption := Column.Title.Caption + ' ▼' ;