안녕하세요...천리안 프로그래머 포럼 유닉스 담당자 천방(ZPDSPF3)입니다...

다음처럼 코딩하시면 됩니다...

function TForm1.GetPickListIndex : Integer;
begin
    Result:=DBGrid1.Columns.Items[1].PickList.IndexOf
            (DBGrid1.Fields[1].AsString);
end;
// 위에서 Items[1]과 Fields[1]의 1이라는 숫자의 의미는...
// DBGrid에서 PickList가 설정된 필드를 가리키는 것입니다...

보시면 아시겠지만...
PickList의 프로퍼티 중에서 IndexOf라는 것을 사용했습니다...
ComboBox에는 ItemIndex라는 값이 있어서 읽어오기가 쉬운데...
아쉽게도...PickList에는 ItemIndex라는 값이 없더군요...
그래서...문자열을 읽어서 그것의 인덱스 값을 읽어온 것입니다...
만약...읽어온 문자열이 인덱스 값을 가지지 못하면 -1로 설정됩니다...

그럼...
평생백수 천방 드림...