Someone

procedure TForm1.Filter_Date_TimeClick(Sender: TObject);
var start_datum : string;
    end_datum : string;
    start_ido : string;
    end_ido : string;
    formatum  : TFormatSettings;
begin
  formatum.DateSeparator:='.';
  formatum.LongDateFormat:='yyyy.mm.dd';
  
  formatum.TimeSeparator:=':';
  formatum.LongTimeFormat:='hh:nn';

  start_datum:=datetostr(DateTimePicker3.Date);
  end_datum:=datetostr(DateTimePicker4.Date);

  start_ido:=timetostr(DateTimePicker1.Time);
  end_ido:=timetostr(DateTimePicker2.Time);