DECODE 함수를 사용하는 것은 오라클에서 사용 하면 좋을 꺼 같구요...

아래처럼 DrawDataCell 이벤트에 코딩하는 것두...좋네요...

저같으면....DBGrid에 값을 보여주는 DataSet에 가상 필드를 만들어서

Lookup 을 주는편이 좋을것 같은데요....

혹시나 DBGrid에서 값을 수정할 일이 있다거나...

여러 용도로 사용 할 수 있으니깐요...

ADOQuery 에서 사용가능한지는 모르겠지만...일반적인 Query에서는

전 이방법으로 많이 사용 합니다...

혹시나 소스 필요 하시면...간단하게 구현된거 드리구요...^^

보이고 편집하려면, 디비 그리드에서 임시로 보여주는걸로하면 될겁니다.
편집시는 1,0숫자로 나옵니다

procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  row : integer;
begin
   with TDBGrid(Sender) do begin
         if DataCol = 3 then begin               //3번째 필드라 할때
            if Column.Field.AsString = '0' then
               Canvas.TextRect(Rect,Rect.Left,Rect.Top,'미대')  
               //Rect.Left,Rect.Top의 값에 조금씩 값을 더하면 원하는 위치로 출력됨, 그리드의 폰트도 적절히 사용하세요.
            else if Column.Field.AsString = '1' then
               Canvas.TextRect(Rect,Rect.Left,Rect.Top,'대여');
         end;
    end;
end;
hsr////////////////////////////////////////////////////////////////

혹, 1이라는 숫자가 나오는 컬럼이 c.고객구분 이라면

adoquery1.sql.add('
select c.고객일련번호,
         c.고객이름,
         l.연체금액,
         l.반납여부,
         DECODE(c.고객구분,1,'대여',0,'미대') 구분,
         c.전화번호,
         c.주민번호,
         c.핸드폰,
         t.테잎일련번호,
         t.테잎명,
         l.대여일자,
         l.반납일자,
         l.반납여부
-- from 테이블명
');