Непонятные проблемы с повторным созданием формы, Access violation после указанной строчки. Если убрать в конце Form3.Free, то все работает.
procedure TForm1.mmSettingsClick(Sender: TObject);
var Hour, Min,Sec, milliSec:Word;
begin
if not assigned(form3) then Form3:=TForm3.Create(self);
with form3 do begin
Edit1.Text:=PathToSound;
DecodeTime(LaterTime,Hour,Min,Sec,milliSec); //дальше вылет
seHours.Value:=Hour;
seMin.Value:=Min;
CheckBox1.Checked:=RemoveLater;
cboxTaskBar.Checked:=ShowOnTaskBar;
cboxTray.Checked:=RxTI.Active;
ShowModal;
If ModalResult=mrOK then
begin
try
If not FileExists('Config.ini') then FileCreate('Config.ini');
IniFile.WriteString('UserDef','PathToSound',Edit1.Text);
<Skipped>
pmShowIcon.Checked:=RxTI.Active;
If ShowOnTaskBar then ShowWindow(Application.Handle,SW_SHOW)
else ShowWindow(Application.Handle,SW_HIDE);
except
raise Exception.Create(Не могу сохранить настройки.');
end;
end;
end;
form3.Free;
end;
