Untitled

Procedure TCSettingsFunctions.SavePosition;
Var
  X     : Integer;
  Y     : Integer;
  sINI  : TIniFile;
Begin
  X := Form1.Left;
  Y := Form1.Top;
  sINI := TIniFile.Create('./Settings.ini');
  sINI.WriteInteger('InterFace', 'X', X);
  sINI.WriteInteger('InterFace', 'Y', Y);
End;

[...]

Procedure TCSettingsFunctions.LoadPositions;
Var
  X     : Integer;
  Y     : Integer;
  sINI  : TIniFile;
Begin
  If SavePositions = 1 Then
  Begin
    sINI := TIniFile.Create('/.Settings.ini');
    X    := sINI.ReadInteger('InterFace', 'X', 0);
    Y    := sINI.ReadInteger('InterFace', 'Y', 0);

    Form1.Left := X;
    Form1.Top  := Y;
  End;
End;