Запоминание координат при перемещении формы

[Shouldercannon]

Есть процедура запоминания координат программы при перемещении.

var programposition: boolean;

procedure TForm1.FormCreate(Sender: TObject);
...
programposition:=True;
...

procedure TForm1.OnMove(var Msg: TWMMove);
begin
if programposition=True then
begin
Form1.SetFocus;
Form1.Left:=StrToInt(px);
Form1.Top:=StrToInt(py);
programposition:=False;
end else
begin
px:=IntToStr(Form1.Left);
py:=IntToStr(Form1.Top);
end;
end;

Всё работает нормально, но если программу запустить и сразу же закрыть, то появляется ошибка на строке

Form1.Left:=StrToInt(px);

Программа после запуска не показывает главную форму (сидит в трее) и очевидно после того как она была запущена и тут же закрыта, то не успевает получить координаты. Как исправить создавшееся положение?

[Neeter]

Раз ошибка появилась на строке

Form1.Left:=StrToInt(px);

то на самом деле ошибка произошла на строке:

Form1.SetFocus;

Проверяйте, видима ли форма или сидит ли приложение в трее (или что-нибудь подобное) перед установкой фокуса.

[Kotofff]

А зачем вобще тут Form1.SetFocus ?
И просто совет: вместо OnMove используй :

procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;

Отличие в том, что WMEXITSIZEMOVE выполняется уже после перемещения или изменение размеров - это может оградить от многих непонятных ошибок.

[-HunteR-]

Shouldercannon
Могу предложить вам сохранение координат в ini-файл. Подойдет такой вариант?

[postal2]

Возможен следующий вариант - использование ini-файлов. Быстро. Компактно. Экономично.

uses ... inifiles

var ...  sfile:tinifile;

implementation

...

procedure TForm1.FormCreate(Sender: TObject);
begin
if fileexists(extractfilepath(application.exename)+'myfile.ini') then
begin
sfile:=tinifile.Create(ExtractFilePath(Application.Exename) + 'myfile.ini');
form1.Top:=sfile.ReadInteger('params','top',0);
form1.Left:=sfile.ReadInteger('params','left',0);
sfile.Free;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sfile:=tinifile.Create(ExtractFilePath(Application.Exename) + 'myfile.ini');
sfile.WriteInteger('params','top',form1.Top);
sfile.WriteInteger('params','left',form1.Left);
sfile.Free;
end;

[Shouldercannon]

Я и использовал ini только проблема была с присвоением координат. Действительно мешался SetFocus.