[Alegun]

Можно примерно так сократить - добавить процедуру

Код:

procedure sdf(ds: integer);
 var
  i: integer;
 begin
  for i:= 2 to ds do
   TNumericField(DataModule2.QueryK1.Fields[i]).DisplayFormat:='0.00';
 end;

ну а в коде

Код:

case ColCol of
  3: sdf(2);
  4: sdf(3);
  5: sdf(4);
  6: sdf(5);
  7: sdf(6);
  8: sdf(7);
  9: sdf(8);
end;

З.Ы.

Или сразу выполнять, без проверки кейсом: sdf(ColCol-1);