Error en un Case....al tratar de copiar registros

[ilichhernandez]

Les cuento, tengo una tabla llamada comparacion, la cual tiene n registros, estos registros tienen un campo llamado tipo, el que puede tomar solo ciertos valores ( 'funcional','quimico','fisico','micro'), entonces debo enviar cada registro a su tabla especifica, tquimico,tfisico,tmicro,tfuncional, he intentado con el codigo siguiente....

Código Delphi [-]
While (not dm.tcomparacion.Eof) Do
    Begin
    temp := dm.tcomparacion.FieldByName('tipo').AsString;
    Case  temp of
    'quimico'       :Begin
                      end;
    'fisico'        :Begin
                     end;
    'micro'         :Begin
                     end;
    'funcional'     :Begin
                     end;
     end; //case
    end; //while

Pero me lanza estos errores.... agradeceria muchisimo que alguien pudiera guiarme a concluir esta operacion.....


[Error] Unit10.pas(1239): Ordinal type required
[Error] Unit10.pas(1241): Incompatible types: 'Integer' and 'String'
[Error] Unit10.pas(1243): Incompatible types: 'Integer' and 'String'
[Error] Unit10.pas(1245): Incompatible types: 'Integer' and 'String'
[Error] Unit10.pas(1247): Incompatible types: 'Integer' and 'String'


Desde ya muchas gracias
ilich Hernandez