1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormCreate(Sender: TObject);
begin
  wahl := Application.MessageBox ('Wollen Sie vorher eingene Fragen erstellen ?', 'MessageBox',
             MB_YesNo+MB_IconQuestion+MB_DefButton2);
  If (wahl = IDYes) Then Form3.Show;

end;