Neuer Ärger mit Vista TaskDialog

[Noobix93]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not form2.visible then
    Form2.ShowModal;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Form3: TForm3;
begin
  Form3:=TForm3.Create(Form1);
  try
    if not Form3.visible then 
      Form3.ShowModal;
  finally
    Form3.Free
  end;
end;

bitteschön