function BuildInsert(DataSet: TDataSet; TableName: string): string;
var
  s1, s2, s3 : string;
  i          : Integer;
  FieldName  : string;
begin
  for i := 0 to DataSet.Fields.Count -1 do begin
    FieldName := DataSet.Fields[i].FieldName;
    if not VarIsNull(DataSet.FindField(FieldName).Value) then begin
      s1 := s1 + FieldName + ', ';
      s2 := s2 + ':' + FieldName + ', ';
    end else begin
      s1 := s1 + FieldName + ', ';
      s2 := s2 + 'NULL, ';
    end; // if not VarIsNull(DataSet.Fields[i].Value)
  end; // for i := 0 to FieldList.Count
  SetLength(s1, Length(TRIM(s1))-1);
  SetLength(s2, Length(TRIM(s2))-1);
  s3 := 'INSERT INTO ' + TableName + ' (' + s1 + ') ' +
        'VALUES (' + s2 + ')';
  Result := s3;
end;

function BuildInsert(DataSet: TDataSet; TableName: string; FieldList: TStringList): string;
var
  s1, s2, s3 : string;
  i          : Integer;
  FieldName  : string;
begin
  for i := 0 to FieldList.Count -1 do begin
    FieldName := FieldList[i];
    if not VarIsNull(DataSet.FindField(FieldName).Value) then begin
      s1 := s1 + FieldName + ', ';
      s2 := s2 + ':' + FieldName + ', ';
    end else begin
      s1 := s1 + FieldName + ', ';
      s2 := s2 + 'NULL, ';
    end; // if not VarIsNull(DataSet.Fields[i].Value)
  end; // for i := 0 to FieldList.Count
  SetLength(s1, Length(TRIM(s1))-1);
  SetLength(s2, Length(TRIM(s2))-1);
  s3 := 'INSERT INTO ' + TableName + ' (' + s1 + ') ' +
        'VALUES (' + s2 + ')';
  Result := s3;
end;

function BuildUpdate(DataSet: TDataSet; TableName: string; KeyField: string): string;
var
  s1, s2, s3 : string;
  i          : Integer;
  FieldName  : string;
begin
  for i := 0 to DataSet.Fields.Count -1 do begin
    FieldName := DataSet.Fields[i].FieldName;
    if AnsiUpperCase(FieldName) <> AnsiUpperCase(KeyField) then begin
//      if DataSet.Fields[i].Value <> DataSet.Fields[i].NewValue then begin
        if not VarIsNull(DataSet.Fields[i].Value) then begin
          s1 := s1 + FieldName + '=:' +
                     FieldName + ', ';
        end else begin
          s1 := s1 + FieldName + '=NULL, ';
        end; // if not VarIsNull(DataSet.Fields[i].Value)
//      end; // if DataSet.FindField(FieldName).NewValue <>
    end; // if AnsiUpperCase(FieldName) <>
  end; // for i := 0 to FieldList.Count
  SetLength(s1, Length(TRIM(s1))-1);
  s3 := 'UPDATE ' + TableName + ' SET ' + s1 + ' ' +
        'WHERE ' + KeyField + '=:' + KeyField;
  if s1 = '' then
    Result := ''
  else
    Result := s3;
  Result := s3;
end;