Something

procedure TInput_Box.Button1Click(Sender: TObject);
var datum : string;
    formatum_datum : TFormatSettings;
begin
  MainWindow.Lekerdezes.Refresh;
  MainWindow.UserValtozas.Refresh;

 formatum_datum.DateSeparator:='.';
  formatum_datum.LongDateFormat:='dd.mm.yyyy';
  formatum_datum.ShortDateFormat:='dd.MM.yyyy';

//  DateTimePicker1.Format:='dd.mm.yyyy';

  datum:=datetostr(DateTimePicker1.Date,formatum_datum);


  MainWindow.Szamlak.Edit;
  MainWindow.Szamlak.FieldByName('Szamla_Szam').AsString:=Edit1.text;
  MainWindow.Szamlak.FieldByName('Szamla_Datum').AsDateTime:=strtodate(datum);