[toddams]

Перед закрытием формы обрабатываю событие OnCloseQuery, которое спрашивает точно ли я хочу закрыть форму, но решил сделать "по-умному", то бы даное сообщение выскакивало только если изменялись данные в компонентах на форме.
В общем на форме 3 эдита, 1 комбобокс и spinedit. С эдитами легко - там есть свойство Modified, а что делать с Combobox? Думал записывать itemindex при создании формы и проверять его при закрытии, и если они не идентичны - вызываю closequery с вариантом сохранить данные. Собственно вопрос: как передать значение переменной из процедуры OnCreate в OnCloseQuery?

[lmikle]

Сделать атрибутом класса?

Код:

type
  TForm1 = class(TForm)
  ...
  private
    FMyVariable : String;
  end;
...
procedure TForm1.FormCreate(...);
begin
  FMyVariable := '1';
end;

procedure TForm1.CloseQuery(...);
begin
  If ComboBox1.Text <> FMyVariable Then
     CanClose := MessageDlg(...) = mrYes;
end;

[toddams]

спасибо, помогло