Miscellany

procedure TForm1.Filter_TimeClick(Sender: TObject);
var start_ido : string;
    end_ido : string;
    formatum  : TFormatSettings;
begin
  formatum.TimeSeparator:=':';
  formatum.ShortTimeFormat := 'HH:mm';

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