Como extraer inforcion de un campo en dos columnas de un dbgrid!!!!

[jomah]

Buenos Dias

Mi dilema es que de un campo de una tabla tengo que sacar dos columnas pero la info que debe haber en una no debe salir en la otra. Ejemplo:
tabla->MO12.....
campo->MONTOMOV . . . . .Columns de DBGRID-> DEBE . . . . . HABER
. . . . . ------------ . . . . . . . . . . . . . . . . . . . --------- . . ------------
inform-> 300.16 . . . . . . . . . . . . . . . . . . . . . . . 300.16
. . . . . . 200.34 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 200.34
. . . . . . . 16.34 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 16.34

en la tabla hay otro campo que clasifica los numeros del MONTOMOV:
campo->DEBE_HABER
. . . . . .-------------
Iinform-> . . .D
. . . . . . . . . .H
. . . . . . . . . .H
Y no se como hacer para que el DBGRID agarre la tabla MONTOMOV y la divida en 2 y los clasifique.
Hise el siguiiente codigo:

procedure TfrmModelo1.FormShow(Sender: TObject);
begin
Tab:= 'MO' + FormatDateTime('mmyy', Now) + '01';
query1.sql.text:= 'SELECT NUM_CTA,NUMDEPTO,CONCEP_PO,TIPCAMBIO, CASE WHEN DEBE_HABER='+QUOTEDSTR('D')+' THEN SELECT MONTOMOV as DEBE FROM '+Tab+' END, CASE WHEN DEBE_HABER='+QUOTEDSTR('H')+' THEN SELECT MONTOMOV as HABER FROM '+Tab+' END from '+Tab+' WHERE DEBE_HABER= '+QUOTEDSTR('H')+' OR DEBE_HABER= '+QUOTEDSTR('D')+'';
Query1.Active:=True;
end;

Pero me tira error

GRACIAS DE ANTEMANO