Si lo que quieres es interrumpirlo, puedes añadirle un flag a la condición.
Código Delphi
[-]
while (condicion) do begin
...
end;
Código Delphi
[-]
flag := false;
while (condicion) and (not flag) do begin
...
end;
Cuando quieres interumpirlo, basta con que en algún sitio (dentro o fuera del bucle) actives el Flag.
No se si es a esto a lo que te refieres...
Tal vez deberías dar más detalles de lo que quieres.