Endlose Folge von Messagedlg's

[Speedmaster]

Delphi-Quellcode:

while FResult = mrYes do
 case Dialog of
 1: 
 begin
   FResult := messagedlg('Text1a.', mtconfirmation,[mbok], 0);
   inc(Dialog);
 end;
 2: 
 begin
   FResult := messagedlg('Text2a.', mtconfirmation,[mbok], 0);
   inc(Dialog);
 end;
 3: 
 begin
   FResult := messagedlg('Text3a.', mtconfirmation,[mbok], 0);
   Dialog := 1;
 end;
end;