procedure TDummyForm.DBGrid1ColEnter(Sender: TObject);
begin
  if (self.Query1.State = dsEdit) then
    self.Query1CalcFields(Query1);
end;

procedure TDummyForm.Query1CalcFields(DataSet: TDataSet);
begin
  // Hier werden die Spalten neu berechnet
end;

...
procedure TMyEditor.Edit;
var lform: TMyForm;
begin
  lform := TMyForm.Create(nil);
  try
    //Übergabe des gesamten Inhalts an die korrespondierende Eigenschaft des Formulars
    lform.Items := TMyObjects(GetOrdValue);

   //Formular fügt Items hinzu oder entfernt welche
    lform.ShowModal;

     //Anschließend sollen die Items wieder im Property stehen
    SetOrdValue(lform.Items);
  finally
    FreeAndNil(lform);
  end
end;
...

 
var ss : string                                      
begin
  ss := WideStringToUtf8(WideString);              
   control1.caption := ss

ColumnIndex := 1;
 case Ord(cb_setup_computername.Checked) of
   0: vst_overview.Header.Columns[ColumnIndex].Options := vst_overview.Header.Columns[ColumnIndex].Options - [coVisible];
   1: vst_overview.Header.Columns[ColumnIndex].Options := vst_overview.Header.Columns[ColumnIndex].Options + [coVisible];
 end;

var
 ColumnVisible : Boolean;
...
ColumnVisible := vst_requests.Header.Columns[i].Options[coVisible];

  if Panel1.Visible then
  begin
    Panel1.Hide;
    Panel2.Align := alclient;
  end
  else
  begin
    Panel1.Show;
    Panel2.Align := albottom;
  end;

 if Panel1.Visible then
  begin
    Panel2.Tag := Panel2.Height;
    Panel1.Tag := Panel1.Height;
    Panel1.Hide;
    Panel2.Align := alclient;
  end
  else
  begin
    Panel1.Show;
    Panel1.Align := Alclient;
    Panel2.Align := albottom;
    Panel2.Height := Panel2.Tag;
    Panel1.Height := Panel1.Tag;
  end;

function CefGetBitmap(const browser: ICefBrowser; typ: TCefPaintElementType; Bitmap: TBitmap): Boolean;
var
  w, h, i: Integer;
  p, s: Pointer;
begin
  browser.GetSize(typ, w, h);
  Bitmap.SetSize(w, h);
  GetMem(p, h * w * 4);
  try
    Result := browser.GetImage(typ, w, h, p);
    s := p;
    for i := 0 to h - 1 do
    begin
      Move(s^, Bitmap.ScanLine[i]^, w*4);
      Inc(Integer(s), w*4);
    end;
  finally
    FreeMem(p);
  end;
end;

    Move(s^, Bitmap.ScanLine[i]^, w*4);

   dst := @PByte(StartLine)[offset]; // StartLine ist vermutlich eine Eigenschaft von TBitmap

    Move(src^, dst^, offset);

    with AbsoluteToLocal(Platform.GetMousePos) do

     
           TMBMemo            = class(TGraphicControl)
           private
              fErrorMessage   : String;        
              fLines          : TStringList;
         fMemo           : TMemo;
              Procedure AnalyseText;
            public
              constructor Create(AOwner: TComponent); override;
              destructor Destroy; override;
              procedure Paint; Override;
            published
              Procedure SetMessage (Const Value : TStringList);
              procedure Clear;
              Property Point : TPoint Write GetPoint;
              Property SearchWord : String Read fWort;
              Property Memo : TMemo write fMemo;

constructor TMBWebMemo.Create(AOwner: TComponent);
begin
     inherited;
     Try
        MyHandle  := WndHandle;
        WndHandle := FindWindow('TLoader',NIL);
        fLines    := TStringList.Create;
   fMemo     := TMemo.Create(self);
        fMemo.ScrollBars := ssHorizontal;
        fMemo.Parent := Self.Parent;   // hab ich versucht, wegen des fehlenden Parent!
                                        // kein Erfolg damit
        Width := 300;
        Height:= 400;
        fErrorMessage := 'TMBMemo: Create succesful';
        SendMessage(WndHandle, WM_CompError, 0, lParam(PChar(fErrorMessage)));
     Except
       fErrorMessage := 'TMBMemo: Create failed';
       SendMessage(WndHandle, WM_CompError, 0, lParam(PChar(fErrorMessage)));
     End;
     WndHandle := MyHandle;
     fErrorMessage  := '';
end;

        for i := 0 to Self.fBlocks.Count - 1 do
        Begin
             fBlock := fBlocks[i];
             fMemo.Lines.Add (fBlock.Eintrag);  <<<== und hier knallt es mit der Meldung
                                                        "Control has no parent window"
             for j := 0 to fMemo.Lines.Count - 1 do
             Begin
                  Self.fBlock.EintragList.Add(fMemo.Lines[j]);
             End;
             j := Self.fBlock.EintragList.Count;
        End;

FSaveDialog := TSaveDialog.Create(self);
FSaveDialog.Options:=[ofOverwritePrompt];
FSaveDialog.Filter:='Excel-Files (*.xls)|*.XLS';
FSaveDialog.DefaultExt:='xls';
if FSaveDialog.Execute then
 FFile:=FSaveDialog.FileName
FSaveDialog.Free;

//Series freigeben
    for i := ChartMessdaten.SeriesCount-1 DownTo 0 do
      ChartMessdaten.Series[i].Free;

    //Befüllen des Chartes
    for i := 0 to (numberOfSeries -1) do begin
      ChartMessdaten.AddSeries(TFastLineSeries.Create(self));                  //Erstell neue Series
      ChartMessdaten.Series[i].Name := 'Tü' + IntToStr(i+1);
      //Durchlaufen der Zeilen
      for r := 1 to y do begin
        ChartMessdaten.Series[i].AddXY(strtofloat(StringGridMessDaten.Cells[1,r]),
          strtofloat(StringGridMessDaten.Cells[temp+numberofSeries,r]));       //Beziehe Daten aus StringGrid (Spalte 1 (Zeit) und Variable Spalte (T1..TüX)
      end;
      temp := temp + 1;                                                        //Datenquelle für die Series erhöhen (nächste Spalte aus dem StringGrid)
    end;

    //Formattierung des Charts
    ChartMessdaten.View3D := false;
    ChartMessdaten.Title.Caption := 'MESS_ID: ' + cdsBT_Messdaten.FieldByName('MESS_ID').AsString;
    ChartMessdaten.Title.Font.Size := 11;
    ChartMessdaten.Title.Font.Style := [fsBold];
    ChartMessdaten.LeftAxis.Title.Caption := 'Temperatur (K)';
    ChartMessdaten.BottomAxis.Title.Caption := 'Zeit';
    ChartMessdaten.LeftAxis.Title.Font.Size := 11;
    ChartMessdaten.LeftAxis.Title.Font.Style := [fsBold];
    ChartMessdaten.BottomAxis.Title.Font.Size := 11;
    ChartMessdaten.BottomAxis.Title.Font.Style := [fsBold];
    ChartMessdaten.Gradient.Visible := false;
    ChartMessdaten.Color := clWhite;

procedure Tfrm_request.SetMonthCalendarDateToField(Sender: TObject);
var
 sender_name : string;
begin
 sender_name := (Sender as TComponent).Name;
 if sender_name = 'mc_customer_request_start' then
 begin
   medt_customer_requested_start.Text := FormatDateTime('dd.mm.yyyy', TMonthCalendar(Sender).Date);
   Sender.Free;
 end;
 if sender_name = 'mc_customer_request_end' then
 begin
   medt_customer_requested_end.Text := FormatDateTime('dd.mm.yyyy', TMonthCalendar(Sender).Date);
   Sender.Free;
 end;
 if sender_name = 'mc_project_start' then
 begin
   medt_project_start.Text := FormatDateTime('dd.mm.yyyy', TMonthCalendar(Sender).Date);
   Sender.Free;
 end;
 if sender_name = 'mc_project_end' then
 begin
   medt_project_end.Text := FormatDateTime('dd.mm.yyyy', TMonthCalendar(Sender).Date);
   Sender.Free;
 end;
end;

...

procedure Tfrm_request.img_customer_requested_start_calenderClick(
  Sender: TObject);
var
 monCal : TMonthCalendar;
begin
 monCal := TMonthCalendar.Create(Self);
 with monCal do
 begin
   Parent := p_dates;
   Name := 'mc_customer_request_start';
   Left := 120; //95
   Top := img_customer_requested_start.Top + img_customer_requested_start.Height+4;
   OnClick := SetMonthCalendarDateToField;
 end;
end;

...

procedure Tfrm_request.img_customer_requested_end_calenderClick(
  Sender: TObject);
var
 monCal : TMonthCalendar;
begin
 monCal := TMonthCalendar.Create(Self);
 with monCal do
 begin
   Parent := p_dates;
   Name := 'mc_customer_request_end';
   Left := 120; //95
   Top := img_customer_requested_end.Top + img_customer_requested_end.Height+4;
   OnClick := SetMonthCalendarDateToField;
 end;
end;

procedure Tfrm_main.Chart1AllowScroll(Sender: TChartAxis; var AMin,
  AMax: Double; var AllowScroll: Boolean);
begin
 if amin < 0 then AllowScroll:=false else AllowScroll:=true;
end;