Проблема с динамическими формами

[nibufep]

Доброго времени суток!

Создаю форму вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  New: TForm2;
begin
    Application.CreateForm(TForm2, New);
    New.Caption := 'Новая форма';
    New.Name := 'form' + (IntToStr(i));
    New.Show;
end;

1 проблема:

На форме которая создается есть кнопка которая должна уничтожать форму:

procedure TForm2.Button1Click(Sender: TObject);
begin
  Free;
end;

ну если создать 2 формы, одна уничтожится, а при уничтожение второй получаю ошибку invalid pointer operation

2 проблема:

необходимо скролить WebBrowser

var
  web_brows: tWebBrowser;

....

procedure TForm2.FormShow(Sender: TObject);
var
  Flags, TargetFrameName, PostData, Cancel, Headers: OleVariant;
begin
  web_brows := wb1;
  web_brows.Navigate('', Flags, TargetFrameName, PostData, Headers);
end;

procedure TForm2.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  web_brows.OleObject.Document.ParentWindow.ScrollBy(0, +37);
end;

procedure TForm2.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  web_brows.OleObject.Document.ParentWindow.ScrollBy(0, -37);
end;

если создать больше 1 формы, то скролить будет только в последней.

[Аватар]

1 проблема

Free замени на Close. И в событии OnClose

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

[nibufep]

первая проблема оказывается была в другом, по кнопке должен еще и таймер уничтожать (иначе после уничтожения формы он продолжает работать)

procedure TForm2.FormShow(Sender: TObject);
begin
  Timer := TTimer.Create(nil);
  Timer.Interval := 3000;
  Timer.OnTimer := TimerProc;
  Timer.Enabled := false;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Timer.Free;
  Free;
end;

как тогда правильно его уничтожить?

[Аватар]

Что бы при уничтожении формы таймер на автомате уничтожался создавай так

Timer := TTimer.Create(Self);

А Free формы из её метода (и не только формы) нельзя. Делай как в #2

[nibufep]

Спасибо!
а что на счет второй проблемы?