Speichern und Laden von Control.Daten

[torud]

Hallo Wissende,

ich habe mir eine kleine Procedure geschrieben, mit der ich mir die Daten bestimmter verschiebbarer Controls speichere und wieder lade. Nun möchte ich speziell für das TPRLabel die Textausrichtung noch mitspeichern und zuweisen. Wie könnte ich das realisieren?

Routine zum speichern:

Delphi-Quellcode:

procedure TForm1.btn_pdf_saveClick(Sender: TObject);
var
  i:integer;
  ini:TIniFile;
begin
    ini:=TIniFile.Create(App_Path + 'test.ini');
    for i := 0 to pan_top.ControlCount-1 do
      begin //nur die controls des panels speichern
        ini.WriteInteger(pan_top.Controls[i].Name,'left',pan_top.Controls[i].Left);
        ini.WriteInteger(pan_top.Controls[i].Name,'top',pan_top.Controls[i].Top);
        ini.WriteInteger(pan_top.Controls[i].Name,'width',pan_top.Controls[i].Width);
        ini.WriteInteger(pan_top.Controls[i].Name,'height',pan_top.Controls[i].Height);
      end;
    for i := 0 to pan_main.ControlCount-1 do
      begin //nur die controls des panels speichern
        ini.WriteInteger(pan_main.Controls[i].Name,'left',pan_main.Controls[i].Left);
        ini.WriteInteger(pan_main.Controls[i].Name,'top',pan_main.Controls[i].Top);
        ini.WriteInteger(pan_main.Controls[i].Name,'width',pan_main.Controls[i].Width);
        ini.WriteInteger(pan_main.Controls[i].Name,'height',pan_main.Controls[i].Height);
      end;
    ini.Free;
end;

Für Tipps bedanke ich mich im voraus.