После сохранения формы не работают Button`ы

[include]

Здравствуйте! У меня такая ситуация: скачал недавно пример программы на делфи где можно сохранить всё что находится на форме в файл и потом загрузить. Всё было идеально до тех пор, когда я столкнулся с такой проблемой: после сохранения и последующего открытия сохранённой формы, на ней перестают работать кнопки button, хотя кнопки находящиеся в MainMenu продолжают нормально работать.
В примере я разместил на форме кнопку Close которая после сохранения->загрузки перестанет работать.
Подскажите можно ли заставить работать button`ы после открытия сохранённой формы.

[dosha]

у мя дельфя все нормально запустила и отработала, мб ты в кнопке забыл постать процедеру выполнения в onclic() прописать в инспекторе

[include]

да нет незабыл, в onclick для button прописано: form1.Close;
программа действительно компилится нормально, я говорю о том что именно при последовательности действий File->SaveAs а потом File->Open, и именно в моей программе, а не в delphi, button перестаёт работать.

[dosha]

нз, всё работает у меня

[Баламут]

Сохраняется та информация, которая доступна во время выполнения. А это есть Name, Caption, Heght, Width и т.д. Методы не сохраняются. Т.е по сути сохраняется только внешний облик. В данном примере ты сохраняешь в файл только компоненты, принадлежащие форме ( и то не все). Поэтому у тебя и остается после загрузки реакция на клик по форме. Ее-то ты не трогал. Если уж очень хочется, чтобы работало, то перепиши код так:

var
  S: TFileStream;
  New: TComponent;
  Reader1: TReader; // new line
  Size: integer;
  cmp: TComponent;
begin
  if OpenDialog1.Execute then
  begin
    {remove existing controls}
    New1Click (self);

    {open the stream}
    S := TFileStream.Create (OpenDialog1.FileName,
      fmOpenRead);
    try
      while S.Position < S.Size do
      begin
        {read a component and add it to the form}

        // old code:
//        New := S.ReadComponent (nil);
//        InsertControl (New as TControl);

        // new code:
        Reader1 := TReader.Create (S, 4096);
        try
          Reader1.Parent := self;
          New := Reader1.ReadRootComponent (nil);
          InsertComponent (New);
        finally
          Reader1.Free;
        end;

        Inc (Counter);
      end;
    finally
      S.Free;
    end;
  end;

  cmp := FindComponent('Button1');
  if cmp <> nil  then (cmp as TButton).OnClick :=  Button1Click;

end;

[include]

Баламут, огромнейшее тебе спасибо. Теперь всё работает так как я и хотел. Я вообще догадывался что программа сохраняет просто визуально форму, расположение обьектов, размеры, надписи на них и т.п., и что button надо где-то указать. Теперь буду знать как.
Проблема решена, спасибо!