[Zhigalov]

так

Код:

Sheet.Cells[ind,4]:=DataModule2.Query.FieldByName('Column3').Value;

или так

Код:

Sheet.Cells[ind,4]:=DataModule2.Query.FieldByName('Column3').AsString;