Exibir colunas em stringrid

Tenho uma tabela com varias colunas e preciso exibir 2 calunas apenas no stringrid porem fiz um código que para a 1 e 2 coluna funciona mas para a 1 e 3 não

var nFields, nRegistro : Integer;
begin
SGridClasFinalB.RowCount := 2;
nRegistro := 1;
with DMregionais.CDSTabela do
begin
close;
commandText := 'Select * from clasfinalbf1div order by class';
execute;
open;
While not Eof do
begin
for nFields := 0 to FieldCount-1 do
begin
SGridClasFinalB.Cells[nFields,nRegistro] := Fields[nFields].Value;
end;
Next;
Inc(nRegistro);
if not Eof then
SGridClasFinalB.RowCount:= SGridClasFinalB.RowCount+1;
end;
SGridClasFinalB.Cells[0,0] := Fields[0].DisplayLabel;
SGridClasFinalB.Cells[2,0] := Fields[2].DisplayLabel;
SGridClasFinalB.ColWidths[0]:= ((Fields[0].DisplayWidth+30));
SGridClasFinalB.ColWidths[2]:= ((Fields[0].DisplayWidth+15)*6);
close;
end;
end;