1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

destructor TJPanel.Destroy;
var
  Pfad, Zeile : String;
  f, c : Integer;
  Liste : TStringlist;
begin
  DBZ:= Chr(134);
  // Formularwerte speichern
  if FFensterpfad <> '' then
  begin
    // Variable initialisieren
    Liste:= TStringlist.Create;
    Pfad:= FFensterpfad;
    // Ordnerstruktur erstellen
    Liste.LoadFromFile(Pfad);
    // Daten prüfen
    c:= -1;
    For f:= 0 to Liste.Count - 1 do
    begin
      Zeile:= Liste.Strings[f];
      if Zeile = Self.Name then
      begin
        c:= f;
      end;
    end;
    // Daten sammeln
    Zeile:= '';
    Zeile:= Zeile + Self.Name + DBZ;
    Zeile:= Zeile + IntToStr(Self.Height) + DBZ;
    Zeile:= Zeile + IntToStr(Self.Parent.Top) + DBZ;
//    Zeile:= Zeile + IntToStr(Parent.Left) + DBZ;
//    Zeile:= Zeile + IntToStr(Parent.Height) + DBZ;
//    Zeile:= Zeile + IntToStr(Parent.Width) + DBZ;
    // Daten speichern
    if c = -1 then Liste.Add(Zeile);
    if c > -1 then
    begin
      Liste.Delete(c);
      Liste.Add(Zeile);
    end;
    Liste.SaveToFile(Pfad);
  end;
  inherited Destroy;
end;