break可以跳出里面的循环。也可以用goto跳出多层的循环。 

procedure TForm1.Button1Click(Sender: TObject);
Var   x,y :integer;
label exit_loop2, exit_loop1;
begin
  for X:=1 to 6 do
  begin
    ListBox1.Items.Add('Loop1: X='+inttostr(x));
    for  Y:=1 to 6 do
    begin
      ListBox1.Items.Add('    Loop2: Y='+inttostr(y));
      if y=5 then goto exit_loop1;
      //if y=x then break;
      if y=x then goto exit_loop2;
    end;
    exit_loop2:
  end;
  exit_loop1:
  ListBox1.Items.Add('End --- Loop ');
end;