with DataSet do
begin
for iFieldNo := 0 to FieldCount - 1 do
if Fields[iFieldNo].DataType in [ftDateTime, ftDate] then
Fields[iFieldNo].AsString := '1900-01-01';
end;
with DataSet do
begin
for iFieldNo := 0 to FieldCount - 1 do
if Fields[iFieldNo].DataType in [ftDateTime, ftDate] then
Fields[iFieldNo].AsString := '1900-01-01';
end;