Função break

Procedure btn click

var
x : integer;

begin
  for x := 0 to 3 do
  begin
    ShowMessage (IntToStr(x));

    //Inc(x); ele já não pode ter essa função de incrementar, pois ele já auto incrementa

   if x mod 2 = then continue; //se x dividido por 2 for 0 então... quer dizer que x é par e o continue faz saltar para o inicio do laço e não executa a mensagem inferior.

    ShowMessage ('Número Impar'); // se o if for falso não da o continue e exibe esta mensagem.

    if x > 5 then break; // break sai do loop
  end;

    ShowMessage (Fim);

end: