Como sei que o programa entrou no break

[Gustavo H 0]

Boa tarde amigos do Forum,

 

Eu estou com a seguinte duvida, no meu programa eu denho um For onde dentro desse For eu tenho um BREAK.....O programa só vai entrar nesse BREAK e sair do for dependendo de uma condição....Mas eu tenho um problema, eu tenho que saber se o programa entrou ou não no BREAK. Como eu faço pra saber isso???

[Rodrigo Miss 1]

Assim óh:

var
  x: Smallint;
  Str: string;
  Parou: Boolean;
begin
  Str:= 'rodrigo';
  Parou:= False;
  for x:= 1 to Length(Str) do
  begin
	if Str[x] = 'r' then
	begin
	  Parou:= True; Break;
	end;
  end;

  if Parou then
  begin
	ShowMessage('Parou no Break');
  end;