[TP] Uscire dal ciclo While

[jabjoint]

Come esco dal cilco "While do begin" ???

in VB faccio "exit do" in Pascal??? Grazie!