[AlexandrV]

Нет все равно при втором открытие системная ошибка а при закрытии программы такая вот системная ошибка

http://www.delphisources.ru/forum/at...d=137171043 3

Код:

Function LoadStyleReadIni(TextOkno:String;TextButton1:String;TextMemo:String):Boolean;
begin
  LoadIniStyleData;
  Form2.ImageList1.GetBitmap(6,Form1.BitBtn1.Glyph);
  Form1.Caption:=TextOkno;
  Form1.RichEdit1.Lines.Text:=TextMemo;
  Form1.BitBtn1.Caption:=TextButton1;
  Form1.BitBtn1.ModalResult:=mrOk;
  Result:=Form1.ShowModal=mrOk;
end;

Кажется в этом коде ошибка

Он вызывает модальную форму но после применения стиля выходит ошибка записи вот на это он начинает ругацца

Код:

Form2.ImageList1.GetBitmap(6,Form1.BitBtn1.Glyph);
  Form1.Caption:=TextOkno;
  Form1.RichEdit1.Lines.Text:=TextMemo;
  Form1.BitBtn1.Caption:=TextButton1;
  Form1.BitBtn1.ModalResult:=mrOk;
  Result:=Form1.ShowModal=mrOk;