ADODataSet1.Active := False;
 ADODataSet1.CommandText := 'SELECT * FROM SpotTable';
 ADODataSet1.Active := True;

 FSpotDataSetProvider := TDataSetProvider.Create(nil);
 FSpotDataSetProvider.DataSet := ADODataSet1;

 FSpotClientDataSet := TClientDataSet.Create(nil);
 FSpotClientDataSet.ProviderName := 'FSpotDataSetProvider';
 FSpotClientDataSet.Open;

procedure InsertSpot(SpotDataSet: TADODataSet;
 DXCall: string; DateSpot, TimeSpot: TDateTime;
 Freq: Double; SpoterCall, Info: string; DateTimeOfGet: TDateTime;
 IsNewCountry: integer; IsNewSpot: Boolean; Country, BandADIF, Mode: string);
begin
 with SpotDataSet do
 begin
   CommandText := 'INSERT INTO SpotTable (DXCall,DateSpot,TimeSpot,Freq,' +
     'SpoterCall,Info,DateTimeOfGet,IsNewCountry,IsNewSpot,Country,BandADIF,Mode) ' +
   'VALUES(:DXCall,:DateSpot,:TimeSpot,:Freq,:SpoterCall,:Info,:DateTimeOfGet,' +
   ':IsNewCountry,:IsNewSpot,:Country,:BandADIF,:Mode)';
   Parameters.ParamByName('DXCall').Value := DXCall;
   Parameters.ParamByName('DateSpot').Value := DateSpot;
   Parameters.ParamByName('TimeSpot').Value := TimeSpot;
   Parameters.ParamByName('Freq').Value := Freq;
   Parameters.ParamByName('SpoterCall').Value := SpoterCall;
   Parameters.ParamByName('Info').Value := Info;
   Parameters.ParamByName('DateTimeOfGet').Value := DateTimeOfGet;
   Parameters.ParamByName('IsNewCountry').Value := IsNewCountry;
   Parameters.ParamByName('IsNewSpot').Value := IsNewSpot;
   Parameters.ParamByName('Country').Value := Country;
   Parameters.ParamByName('BandADIF').Value := BandADIF;
   Parameters.ParamByName('Mode').Value := Mode;
   Execute;
 end;
end;

ParamByName('IsNewCountry').Value := IsNewCountry;

ExecuteOptions := [eoAsyncExecute];

   SELECT DXCall, Freq FROM SpotTable WHERE DXCall=:DXCall AND Freq=:Freq
   if RecordCount > 0 then
     UPDATE
   else
     INSERT

         ChangeRecords := 0;
         with FSpotCommand.Parameters, FSpotCommand do
         begin
           CommandText := 'UPDATE SpotTable SET Info=:Info WHERE (DXCall=:DXCall) AND (Freq=:Freq)';
           ParamByName('DXCall').Value := ClusterData.DXCall;
           ParamByName('Freq').Value := ClusterData.Freq;
           ParamByName('Info').Value := ClusterData.Info;
           Execute(ChangeRecords, '');
         end;

         if ChangeRecords = 0 then
           InsertSpot(FSpotCommand, ClusterData.DXCall, Trunc(SpotDate), //Тут вставляем если надо!

 DELETE *
 Execute;
 SELECT *
 Execute;

UPDATE SpotTable SET DateTimeOfGet=:DateTimeOfGet ...

UPDATE SpotTable SET Info=:Info...

UPDATE SpotTable SET Info="111" WHERE (DXCall=:DXCall)

 FSpotCommand := TADOCommand.Create(nil);
 with FSpotCommand do
 begin
   Connection := FSpotConnection;
   Parameters.Clear;
   with Parameters.AddParameter do
   begin
     Name := 'DXCall';
     DataType := ftString;
     Direction := pdInput;
     Size := 50;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'DateSpot';
     DataType := ftDate;
     Direction := pdInput;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'TimeSpot';
     DataType := ftTime;
     Direction := pdInput;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'Freq';
     DataType := ftFloat;
     Direction := pdInput;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'SpoterCall';
     DataType := ftString;
     Direction := pdInput;
     Size := 20;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'Info';
     DataType := ftString;
     Direction := pdInput;
     Size := 100;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'DateTimeOfGet';
     DataType := ftDateTime;
     Direction := pdInput;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'IsNewCountry';
     DataType := ftInteger;
     Direction := pdInput;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'IsNewSpot';
     DataType := ftBoolean;
     Direction := pdInput;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'Country';
     DataType := ftString;
     Direction := pdInput;
     Size := 10;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'BandADIF';
     DataType := ftString;
     Direction := pdInput;
     Size := 20;
   end;
   with Parameters.AddParameter do
   begin
     Name := 'Mode';
     DataType := ftString;
     Direction := pdInput;
     Size := 20;
   end;

        with FSpotCommand.Parameters, FSpotCommand do
        begin
          CommandText := 'UPDATE SpotTable SET Info=:Info WHERE (DXCall=:DXCall) ' +
           'AND (DateSpot=:DateSpot) AND (TimeSpot=:TimeSpot) ' +
           ' AND (Freq=:Freq) AND (SpoterCall=:SpoterCall)';
          ParamByName('DXCall').Value := ClusterData.DXCall;
          ParamByName('DateSpot').Value := Trunc(SpotDate);
          ParamByName('TimeSpot').Value := Frac(SpotDate);
          ParamByName('Freq').Value := ClusterData.Freq;
          ParamByName('Info').Value := ClusterData.Info;
          ParamByName('SpoterCall').Value := ClusterData.SpoterCall;
          Execute(ChangeRecords, '');
        end;

function StartOfTheDay(const AValue: TDateTime): TDateTime;
begin
 Result := Trunc(AValue);
end;

ParamByName('TimeSpot').AsDateTime := Frac(SpotDate);

UPDATE SpotTable SET DateTimeSpot=:DateTimeSpot

procedure UpdateSpot(var SpotCommand: TADOCommand;
 DXCall: string; DateTimeSpot: TDateTime;
 Freq: Double; SpoterCall, Info: string; DateTimeOfGet: TDateTime);
begin
 with SpotCommand.Parameters, SpotCommand do
 begin
   ParamByName('DXCall').Value := DXCall;
   ParamByName('DateTimeSpot').Value := DateTimeSpot;
   ParamByName('Freq').Value := Freq;
   ParamByName('SpoterCall').Value := SpoterCall;
   ParamByName('Info').Value := Info;
   ParamByName('DateTimeOfGet').Value := DateTimeOfGet;
   Execute(ChangeRecords, '');
 end;
end;

         UpdateSpot(FUpdateSpotCommand, ClusterData.DXCall, SpotDate,
           ClusterData.Freq, ClusterData.SpoterCall,
           ClusterData.Info, Now{MinSpotDate});

   CommandText := 'UPDATE SpotTable SET DateTimeOfGet=:DateTimeOfGet ' +
     'WHERE (DXCall=:DXCall) AND (DateTimeSpot=:DateTimeSpot) ' +
     'AND (Freq=:Freq) AND (SpoterCall=:SpoterCall) AND (Info=:Info)';

   CommandText := 'SELECT P.* FROM SpotTable P WHERE NOT EXISTS ' +
     '(SELECT * FROM SpotTable R WHERE P.DXCall = R.DXCall AND ' +
     '(ABS(P.Freq - R.Freq) < :FreqDelta) AND P.Id < R.Id)';

select distinct MyNewfield