Любезный Спасибо! проблему решил сохранением в *.ini файл весь код писать не буду напишу кусок для записи
...
Код:
procedure TForm1.ReadParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('path.ini'); {создаем переменную}
ComboBox1.ItemIndex:=IniFile.ReadInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex); {сохраняем выбранный пункт, то над чем я ломал голову}
IniFile.Free; {убиваем переменную}
end;
...
и кусок для чтения
Код:
...
procedure TForm1.WriteParams;
Var IniFile:TIniFile;
begin
IniFile:=TIniFile.Create('path.ini');
IniFile.WriteInteger('FORM1','ComboBox1ItemIndex',ComboBox1.ItemIndex);
IniFile.Free;
end;
...
но при таком варианте path.ini сохраняется в папке Windows но это уже пол беды.
