for i:=0 to 5 do begin
  if 条件 then break;
end;